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EDITORIAL 



EDITORIAL MAR/JUNE DOUBLE ISSUE 



Due a change in my business direction Sega Software Support 
closed down on March 31. 

This double issue of Sega Computer is the last to be 
published by Sega Software and completes the 1986-87 
subscription year. 

DO NOT DESPAIR! I M 

Geoff Crawford from Poseidon Software (a well known name in 
Sega circles) has taken over the operation from this date and 
all the current stocks sold by Sega Software will continue to 
be sold by Geoff, together with all the excellent programs 
produced by Poseidon. 

All enquiries and re-subscriptions, after this date, should 
be forwarded to Poseidon Software at P o Box 277 Tokoroa. 

This FINAL issue from Sega Software Includes almost every bit 
of Information a Sega owner would want to know. 
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The past year, since we took over from Grandstand, has been 
both rewarding and interesting and all of us at Sega Software 
hope you will give Geoff the same support as you have given 
us • 





DEAR EDITOR 

I would like to know the answer to a question which is: 

(a) Why are original Sega games like Star Trek, Zaxon and Buck 
Rogers made for the Commodore computer but have never 
come out for the Sega computer? 

(b) Are Flicky or Lode Runner ever likely to be in stock? 
Stewart Parkes, Papakura. 

EDITOR'S REPLY 

Sega Japan can give us no reason. 

DEAR EDITOR 

i would like to thank you ior your prompt response to my 
application to join your Sega User Club last year. 1 am very 
impressed with what 1 have seen of your magazine so far, it is 
way out in front of anything I have seen in Australia, 
There is something I would like to mention if I could. The 
KARATE program featured in ihe Jul/Aug issue looked as 
though it would be tremendous, but it was a very big let down 
after hours of typing to find there were still gremlins in the 
program. The subsequent issue made no mention of any 
corrections and although I debugged it, 1 could still not get to 
run properly with a disk drive. Other local Sega owners have 
not been able to work out what was wrong either. 
Andrew Alliston. Cardiff, NSW. Australia. 

EDITOR'S REPLY 

To run this program on a disk drive it is necessary to remove 
all the REM statements. To our knowledge there are no other 
bugs and the program runs perfectly on both tape and disk on 
our Sega. 

DEAR EDITOR 

(a) Regarding B C R Davis" problem with Jet Ranger. I had the 
same problem and found I had typing errors. Lines 10-20-30 
with the incorrect number of "As" and Data lines incorrect. 
If he still has problems he can send me a tape and I'll send 
him a copy. 

(b) In the front of our magazine is a note about contributions 
being the origianl work of the author, but there are two 
programs by Jan Jacobsen in the Nov/Feb issue which were 
written by Tim Hartnell. Gomoku and Chess are from his 
book 'Giant Book of Computer Games'. Gomoku has been 
altered very slightly but Chess is an exact copy. There are 
strict copyrights on these programs and I don't think Jan 
should take credit for someone else's program Could you 
please publish this letter in your next issue. to deter other 
people from doing the same. 

(c) On page 1 1 Table XX 14 Music program lines 250-630 seem 
to be missing. 

(d) I think the mag is great but could we have a price list of 
software, etc. that's available from Sega Software Support, 
published with each magazine 

Terry Cole, P.O. Box 7140. Te Ngae. Rotorua 

EDITORS REPLY 

(b) As we had not heard of 'Giant Book of Computer Games' 
we were not aware that these programs were from this book. 
Agreed — copyright infringement is serious and we hereby 
withdraw the reference to Jan Jacobsen. 

(c) Gremlins at work!! 

(d) As you will know from the editorial, this Is the last issue of 
Sega Computer being published by Sega Software Support 
— sorry. 



DEAR EDITOR 

(a) Can you or your readers give any information on how to 
retain titles or sub titles on the screen when using the Hucal 
disk eg. when listing down the rows the titles scroll up out 
of sight. By using the window function 1 was unable to scroll 
with the columns. 

(b) Also is it normal for the screen to change background colour 
after a few minutes when using disk programs? It changes 
from the normal program colorus to a grey backgroimd. 

D. Mudgway, Fellding 

EDITOR'S REPLY 

[a} It is not possible to retain titles when scrolling down the screen 
nor to retain your scroll function when using the window 
function. 

(b) Sound like you may have a prohlem with either the disk 
drive, computer or the TV set you are using. 

DEAR EDITOR 

Sega as an RTTY Terminal. I refer to the letter from J Lindsay 
in the Nov 1986/Feb 1987 issue of the magazine in which he 
seeks information, software, and circuits for modems or interface 
to use the Sega as an RTTY terminal Presumably by RTTY Mr 
Lindsay is referring to a remote teleprinter, in which case 1 can 
assure Mr Lindsay that I have successfully operated my CREFD 
Model 7b teleprinter from my Sega, writing a REM packed 
machine coded program for the purpose and using the printer 
socket as an output socket I also use this socket for my latest 
printer Before 1 can help Mr Lindsay (even though I will be 
temporarily resident in Bangladesh) 1 must have more details 
of the device Mr Lindsay wishes to communicate with, be it a 
teleprinter, printer, or another computer. This information must 
be provided by the person at the other end of the communication 
link. 

If Mr Lindsay proposes to use the public telephone system as 
his communication link he will either use (a) an accoustic coupler 
or (b) a modem. In (a) the telephone receiver can be held close 
to the television loud speaker and a suitable program (in machine 
code) will send the appropriate noises. In (b) Mr Lindsay will 
have to purchase a modem from a computer dealer and have 
it approved and installed by the Post Office. Could Mr Lindsay 
please supply me with details of such a modem even though 
he will not wish to go through the expense of purchasing one 
yet. Presumable Mr Lindsay has not got the SF7000 Su|kt 
Control Station which is fitted with both a parallel printer output 
port and also a RS232 output, I am pretty sure that tlie serial 
printer socket on the Sega can be used as a RS2.'t2 outlet, but 
need more details of the device at the other end, even if it is 
another Sega. 

Finally. Mr Lindsay must lell me of the type of information he 
wishes to send, ie programs or data, «ind how this is arranged, 
eg. 128 byte character strings, etc, Letters forwarded to the listed 
P.O. Box No. will be forwarded lo me In Bangladesh by courier, 
usually on Fridays 

PS, It is my intention lo prepare programs and instructions in 
publishable form, but need to try them out on one or two readers 
first. 

R.E. Tempier, 

c/- Worley Consultants Ltd 

P.O. Box 4241. 

Auckland 



SEGA BASIC REVEALED 



Control codai 



Kbv ODSfal'on 


PRINT CHfl$|Value| : 


Funciian 


[CTRE1+ 151 


PRIMTCHRS ni. 


NULLNocturacier 


C 


- 


BREAK Stopi program e'ecution. 


E 


5 


Clears c<iarKt«TS aftc itw curiai. 


G 


7 


SELL Makes beeo sound. 


H 


B 


DEL Orletei a ehsracler. 


1 


9 


HT Horizonia! lab 


J 


10 


LF Line feed 


K 


11 


HM Htlmns the cursor id the hnrtw posilion. 


L 


12 


CLR Clears the scraen. 


M 


13 


CR Carnage re luin. 


N 


14 


Keyboara iMi Ikanj - alphanum«ic| 





IS 


[ ' Scrsen shift (lent KrMr •- graphic *creen| 


P 


IS 


Standar<3 cha racier liie 


a 


17 


Chartctei iixe doubJKl ho'izcintailv (SCREEN 21 


R 


IS 


INSInseti '' 


s 


IS 


Kev eniry for ciprtBl letters (A-ZI, rxi shift 


T 


30 


Kev entry for small leiten i»-i], no ihitt 


U 


2^ 


Clears Ibe cufrenT line and returnt the cursor to 
the left marain. 


V 


22 


Normal rnode 


w 


23 


GRAPH Shift (key eniry graph mode •- lattai 
modEl 


X 


24 


Clk* sound selling |on - otil 


z 


36 


Primar selection (#1 ■" #21 


- 


28 


=> Curaor movwTiBni 


- 


29 


O Cursor movement 


- 


30 


ff Cursor movemeni 


- 


31 


5 Cursor movemeni 



To specify a conitol code in the program, enter ihe associated 
PRINT CHRS (value) 



CHAPTER 3 DISPLAY SCREEN 



SC'-3UO0 provides two independent screens which cinnoi he used timuhiineously. Select the 
proper screen seconding lo the opeulion. 

Screen I Text tcreen 

BASIC iniiially displays Ihc lext screen. Characiets can he directly inpm ici ihi; screen. This 

screen cannol diipUy the execution lesulis of paphic stalemenis such as LLNt and C'lRCLB 

lEiieincnis 

Screen 2 Graphic screen 

Usually, a Icit screen is displayed and a graphic screen » not visible Specify a SCRFXN state- 
ment tj display the graphic screen Thit screen displays graphics speciFied with graphic stale- 
menis. After execution on [he graphic screen is over, the program automalicaUy displays the 
texl screen. To continuously display the graphs screen, set ar endless loop Ui the list line. 

Z1 Taxi tcraan confifUiBtian 

A lexl screen has a con figuration of 38 columns ■ 24 lines. Use of the two leftmost columns i>n 

Display screen 



I a 40 coLumiu 



I J ^ Honiepontion 

' — Oidiiuiy cunor imnmBnt nn|t — 



the screen ire restncted, because 
some CRTs do not clearly dis- 
play this ana Characters can he 
displayed m this area with a 
VPOKE statement The address 
of the leftmost column on the 
screen a as follows: 

&H3C(» (hexadecimal) 

15360(ilccimaJl 



2.2 Coordimtn on text icrawi 



A A 





jX) V 11' F "H'i i-m.^H-l I or yrOI El^T-d.0.ii5 

Cunororigin fjc = O,y = 0) i?' ip =GR a.iBrFFIIsiT "i". 



CootdinalesrangeofCURSORsiatemenl r = u-37 

J. = 0-23 



The screen ongir 1 is al the second column leftward fromthf BASH liome pusitmn 1. 

The BASIC home posilior implies the cursor nrjgin, iii coordinatts to he spemfied in a 

CURSOR statement are x^Oind yO 

The actual screen origin is at Ihe second column leftward from the home position: its VRAM 

address is All.KWi ( 1 53t)0 m decimal nnlaiion). 

Execute ihe followuig watenjenti to check the above. 

CD VI'.M F:--H"'.riW.Mi.li or .-fnt l l\.-.hlA .c.'i 

&l\i\ {(iS in tJecimal nolationtls the diaracler code of letter A 

Usually, HASK uses Ihe home position as its origm Tn display diaiaclers on the full screen, 
use a VPOKK statement. 

Vrticn a HRINT statement is e^eculcd on a text sLteen, tliaraciers are displayed from the screen 
lop. To display characters at the desired positnins. move the cursor *ilh a CURSOR slalcment. 
Characters are dispbyed fmm ihe position specified in the C'llRSOR statement. Determine the 
pnsition according to the number oF characters 

The aJdrcsitakulatiuns on ilie 'cxI si;recn are lai tied uui ss follows. 
Addre** ( text) = v * lU 1 i • fillrfCU) 

Fur theddtj lobe seni, the ASCII i.i>dc nI the i.oiiespiinding charauier is applicable (0 ~ 255 in 
decimal numcrali and ^ iilFF in hexadctinml niimcrak) 



Example I. 



iO - l!l:_.L'l. J'.. U^:, 1 il.i 
.^11 tHIR:",i:H. i€. I _:ri-iNi 
iilM 



TI ■ T 



To specify the position in a (URSOR statement, rnler the coordmiKiin the order olic and y^ 
axes 



Example 



.'Vi FOP- Y -Q ro IB "^TEF T 

~0 CURSaP "<■,'. :FF INI "FtfiSIC' 

•,0 nLf. r y 

TliK 



DA£ I C 

erisic 



F"« d d y 



Vansblcs can be used to specify coordinates in a CURSOR statement- This method is useful 
when changmg the display position. 



Example 3. 



10 FGP v=s rn i=, 

.'ja CURSOR 'x.iipf-itn -f 

■JO me:ki V 

Specify & FOR statement to chinge only the y-coordlnaie. 



o. 



3.1 Graphic tcTMn oonfiguxtian 

A grapJiii; lirccn conllguration is 2.Sh (horizontal) x 192 (vertical) pictuic rlemcmi. Usually. 
1 picIurF cicnwnl a riealed ai a ilnl In graphtt scrern explanauuns, bulh pictutr elemenls intl 
dills arc used, bul Iticy )iav« Ihc tamf meaning, except for special ciperatiuns 
The ongiTr nf i graphic ^cieen a ai the lefi-Jop comer, like fot a texl screen, bui some ( RTs 
may noi cleaity ilisplay ihe origin. 



3,2 Coordinatai on graphic icraan 

The utapliic icreen is managed in Ihe units iif dots (picture elements). In LINE-", PSRT. and 
ri.'RSOR slatcmenis, specify the cfjfiluialei in The following unge 



Effective range of coordinates 

x-asis - 2S5 
y-MiS: 0-1"! 



When displaying chaiatlcrs wlih a CURSOR suiement. the conidmaies muii he ipeiified sii 
thai ihe chaiaciers are nut overlapped on the screen Since a chataciei t:unsistii<:l' t>(hori2onial) 
x 8 (venni!) dnis, nraie Ihtn hiiriionliJ dots and more then 8 vertical dots musi be reserved 
betwcne the specified ton id mates. 



10 

'.ifl 

'lEl 

.■.1,1 

■.lli 

f-'i I 



;;cr.-[;rrj -j..:iLIZ 
riiF'^of ',-.;rr-iM ■■»■.■ 

II! ■ ■ - 
i'. irn .11 
I 



1 1- 



i) 



Graphics screen displayed 



II T' II II iiiHi II II :i I 



Aflef characlcn i^r giiphic-s are displayed iiii a uraphics screen, this screen is auti)iilalii.ally 
changed In a text scieen To keep Ihe giaphics screen display, specify an endless loop m hne 60. 
Press the BRE.AK key lo teminale program cxetunnri 



3.3 Drawing (igurai 

Draw 3 line un ihc screen. 

Befiiie diBWmg a figure on the screen with a LINE or CIRCLE ilatemcnl, specify ibe graphic 

Kteen asfuUuwii: 

.1 hi l-'i :,.':! I ■! 

Write this slalement foi screen selection it the beginning tif the program The program execu- 
tion lesull can he seen on the graphic screen. 

To draw a !ine. specify Ihe coordtnaics of Ihc tine iiaiiing point and those ol the line ending 
pcinl in a LINE stalernent. The specified point mtisi he n cros&ng of the a- and y-axes 

10 SLRfT II r..:Ll..; 

rCI L INE l-'.0,5Ui U5ia.l50>.H — Colornumhet 

~E GOTi; :ia (See the CULOR stalemcm > 

r-llN 

t'r enk I II "."dl 



* = 



- V = 50 ■ - - 



-y=i50 




EfTective range DfgtBphjc 
screen 



Far a different line, change the coord inilei. 

After changing ihe coordinates or chanciers with ihe CURSOR key. pre is the jCRl key 



B ipecincaiKini l>riwln| • box 

I INT 'r.0.r.PI' ' I'lB, 130) ,5.B 

A LlNf ilitcmciii on dnw ■ biix (i^rvcl angular), in addition !o a line. To draw a box, specify 
B Ihox) When B ii iperHWid m ■ LINE tidcinent, it iiawi t box whose diagonal line u speci- 
fied in the ume LINF. ililemcnl 

F iipecirtcation 

. IMF 'Ml,',!?!. I riH.l-iO) .::.BF 
This LINIi staiement paints inside ihe box with the ipecined oolot. 

Ilriwinp a circle 

To draw a circle, specify the center coordinates. 

til ..i:i-i,L"N -', . I'.t '; 

n-i fnr- i- ;ia ii' ^3 '-fE-i "-.• 

■.a ciMi.1 ■ i.'s.'.^w:' .I'.'j. 1 .0. 1 

Ml ■mo -jO 

hIJM 

.-.■t-^l M Ml 

See the explanation on the flRCLt statement for details. 

Tlie lDllo*ing siattmetHiind commands are valid only "o the graphic screen (Tliey art invalid 
on m text screen | 



SCREEN 

LINE 

CIRCLE 

F5ET 

SFRiTE 



POSITION 
BLINE 

&CIRCLE 

PRESET 

MftS 



4. AddnitBi on graphic loMn 

The PVOKE: adJreis at the L-flmosl cud uf the screen in.&ll[)000 Data specincd at ihis addreis 
IS displjyed on the screen See llie explanitum on a PATTERN staiement fai data 



Example 



VFOIE M-;0Oli.:-HFF 

Pt?3Clv 



VFOr E ' HOQS 1 7 , Z5- 



The Ktiphic Icreen display ed dire ctly wllb commands can be seen only fnr an instant* To see 
the screen again, piess the IBREaKi key while pressing ihe [ SHJFTl key The screen it scrolled 
down When iheie keys are pressed jgam. ihe lexi screen is displayed 

Id SCi^.EEIl I.TjCLS 

::0 FOR v=0 TO r 

40 vPOl E ?-H0iaii3+v.VAL''"^H"'-D3- 
50 NEVT V 

30 DATA 01 ,i3!:-.ia7,l3F, IF . 7.F,7F.FF 

70 CV=^H2Q00 

SB FOF, V=iD TQ 7 

=0 READ D» 

1:jO 'JFOl £ ?-hl301O'ViC'J,VAL 1 "^H'^+DS) 

1 10 NEaT V 

120 DATA 5F.5F.5F,5F.3F.3F.3F,SF 

130 GOTO 130 

RUN 

cTesI in 1 r0 



Specify diia at atlLlresses AHfKHO to &II(X1P to draw a triangle. The color table addresses 
begin at &H2(X)0 Specify the color with by color number, 



Addresses on graphic screen 

Addresses on ibe graphic screen begins ii VRAM address A.HO0OO An addieis stores Kbit dalj, 
divided to (out high-order bits and foui low-otdci bits. The high- and low.order bits are indical' 
ed in the binary notation and they are displayed in the hexadecimal noiiiiiin Thus, two 
hexadecimal digits can be used to wriie Ihe tome ills cit ui address 



t^^ 


idi 


r bit* 


Ijiw^rdrr biu [*inuy nuuiii.m rir 


jdei:unal noIiliDn 
i 
A8 

F F 


Dcomal nolaui? 




! 










11 U 11 
1 tj 1 1) 
1111 


tJ U 11 1 
1 U 
1 1 1 1 


1 
















1 6 8 


















2 5 S 























The computet can handle both decimal and hexadecimjl numbers &\i musi be assigned lo 

hexadecimal numbers Decimal 10 tsequivsJeni to hexadecimal AHA. 

in VRAM addffising. eight horiiunt^ bils lone byte) has ime address. The bytes in the left 

most column arc assigned addresses &HO0OQ to &H0007 from the top. In Ihe same way Ihc 

hytcsin ihe next column are assigned addresses £11000!) lo &H<XIOI- 

A character oi symbol is geneiaied by vertically aligned eight bytes (eight addreuesi I.Srrc thr 

explanation on ihe PATTERN staiement | 

Addresses beginning with AHJOOO ir the culoi table have onclnoni correspondence wiih 

lUnr heguinuig vuith itllOOOO. 



3P VF'ni E^HB/-=I .?HP' ' 



as 
5D 

-•o 

9H 



VRAM MAP 



& HOOOO 



.'pni r».HKi'--..i.?-Hir 
vf ni.rp.|-iC/.'=-.^,.' tr-F 
1,'r.ii f'H0;,'"..^..;.H7f 
vnrii f:J'.HO/,St..»lirF 

17-0 '.T-QI F'H.-ft51 ,*-H5P 

I'lF. v-iji t ■'.Hro'".r.''Hr.F 
ISP ■-'r^^ f;h. .T.T.^.H^.r 
ir,a v^ni i".-.H:;r.',,4.MiBF" 

l"'D ■-■PDFC?.HJo:-.'j.M(Eir 
]BB V='n' F.'''M2,-,^:.,!.HBF 

.vo i-^cnn :-0P 



VRAM(16K Dyteil 



Write data in eight byies having addressts 
1H06S0 lo iH0657 



The color tabic begins jl &1-I2000. Sfc 
the cJipl»n»lion on (he COLOR sialcmerii 
foT lh« ca\or numbers. 



VPOKE ADDRESS ASCII DATA ITe.l modg) 



& M1B00 
& H3000 



&H3B00 
& H3B0a 



Gcapnic II mode patKr 
generator table (6144 
byteil 



GrdDhic II mode 
caloi table 16144 
bytesl 

Graphic II mode paiiern 
nime EsQle 



For lent icreen 



Text mode pattern grnBraior 
table (2048 bytes) 



Fo> graphic icrnn 



^ritB attilbulB Ubie 
'Unuiedl 



T«in mod« psttern 
name tabic 



lUnuHd) 



(768 bytes) 
(I28bylesl 

I960 bviesl 



Sprite Qanoraioi lable l2a4S 

bytei) 



Pallem genetalor table (leKl 5creen) 

1(310 FPR ft=?.Hl30Q*72*S TO ?.H!BO0 + ';2»e + 

'•.■JFGl-E .^i.CiNEXT 

1020 IF INI Er*=" " TFiEN C = 

1070 IF IM E':'i="Z" THEN C^2^5 C'255 uiditate* « cluracter code. 

1040 GOTO 1010 

Spritt gereralor nble (text streen) 

20(30 SCREEN 2.2:CLS 

2010 FGP M = .'HJS00-t-T2*e TO ^Hiaaa'^T:2*a* 

-:'.'FaFE h,255:NE>:T 

2020 FOP M=0 TO Z 

2070 MAGtl 

2040 FOP «i=a TO 100 : ne:<t W 

20^3 aPFITE 0. ' 1 00 . 100> , 72.B 
20e>0 NE;<T n 
2070 GOrO 21300 



Screen lop-left cnmerlilarting address) 



Screen tup- right corner 




IP I -L 



,i ~ X 



Address 
atl3C00 

l^iripwflvsl (Ldnciiudinal I 
111 digils-2t i-iilurnns 
= aeo bytes 
TEXT MOI>K 
Ordinarv tpm tnodp siTWn 
3H .nlumns MilfiHy". 



&!lllUUi) 



CKAPHU" MUUK 

I.Sid.'wnys) ( l.ii"Kili"Jl""l I 
I filll byl■■^ 



PatUifVRAM MAP 

The addrf n cakulaiiiins on ih( lent mesa ate tjmed out as follows. 

A^lcif^^•^ ' l-'l I = V * 10-> I ' S;M3C(» 

«h«.. \x = 0-3B. y = [>^23l 

For thcdai-i (ubeient.ibr ASCIKodcof iheioticsf)Ondingchar«cicn5appliMblt 132—255 in 
dcLiinal numeiaU jnd &Hao~&HKF in hexadecimal numeriKI 

Note As iliown in Ihe IcFl Figutc above, tlie hyrwonial sms is denaied by 2 tolumns as 
tompaied to the o[ilm4iv text wiecn Tlius. Ihe display position defined by 
CURSOR itaiemenl deviates Irom thai defined by VPOKL, by about 2 locationi 
in tlir luiii^ontal dircLiiun 

VPOKE A DDRESS. DATA fGrephic moHa ) 

Uurhic aildrcis tJWiibinins arc tamed .lui a tollows 

(iri.iiliii ..ddt.'^-. -- INT'.v tt « 2 56 -f I NT ( I / B 1 * B + 3- MOO 8 
whcrl' IVI'.0~19I.IibO-255 ) 

The adJiesi derived Irom ilie above cakiilaimns 1^ the hfi^iiintngaddtcis ot S htlsldui!.) in ilie 
iiiigned hoii/utiial diiCLti.m The iHigned addiesi is Ihe x INT U.'SI bit localion counting 
from 'he left of the beginning adiliei^ 



The data In he sent are he\jdetimal or dciinlal nuincrsls iJiipUycd hy the bil paltein in 3 
hLin^iinial tow 

bxample 



\ ! I k:| I I "Tl ^ ^ H 9 3 .47 

5(milatly, the color lable address fot giaphic color assignment is, deiived liom the addition of 
4H2ID00 tu the above jddteii The data 10 be «ni are natural nuinbei5 (0 - 255) of IB 
( I Byte) The uppei 4 bits of ihcse numbers convetted into bin jiy data aic ihe assigned color 
number and ihc lower 4 tans, ihc bsckgiound golor number (Th( addresses of the giaphic 
pattern gcnentoi table and color table lespcctivcl) cotrcspimds all M 

CiiaphiL (Olot tahle addieit 

= INT V 8 ' * 256 + INT ■ I '' B ■ *8 
+ vMODS * SiHSOOQ 

Where > .s - 1 9t 
X li ~ ! 5 S 

Ciilui data = Assigned color No 'lb * backgiound color No 
(0-15) (0-I5J 



Use VPthK Willi reference to VPOKt: address Ptogiam lo lead the content uf the pattern 
gcnersloi lahle m VRAM 



F- sample 



Screen hollom-left comer 



Screen bonotn-nght comsr 
(ending address) 



10 Ao = &Hieoo + e.H3i*s 

20 FOR A=AD TO AD*7 

30 OA=VPEEK'A' 

40 PfilUT HEXI'DA 

5 NEXT A 



2 
60 
2 

2 
7 O 

2 
7 
00 



. HEM Thp beEinnine addreiss 
of KLM " 1 ' pnil'-rn 
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CHAPTER 5 COMMANDS, STATEMENTS. AND FUNCTIONS 

Tim thapiei explaini the disk BASK cimmands, ifalemcnis, and functions in (he alphabeiica! 
ordei, Tci knuw ilic cLisifniliun. ae the \in ii ih( end o( Ihis manuiil. 

In ihe enplinslion. a;i expression jinJitaiei a funtlion oi variable expression, which may be 
difffrem from auihrnein expression'. The explaiution on each CDmmind. siaiemenl, or func- 
tion consislsof Funcllon, Formal. DcsirripliiiN. Noles, iuid See Also. 

Funijrioii tx plains ilie fiini;tion of (he commard. statemeni. or fund ion, 

hi:inna( Gi*es a iample fnrmal The paranie(cri iuid variables are detailed in (he deKrip- 

lion, Alsii lee sample piugrams foi ai;(ual todmg 

Example, PRINT A - PRINT vsuable-nanw 

In the (ijTTiia[, complici(ei! symbols art no( used for easy underslmdinji You 
can input ihe formal as shown 

Uescnption Destnbei ihc funciinn m driails Also icad ihc explanalion on the asiociated 
commandi, s(aiemen(s. and fiint-dims, if any. 

Note that, lor proeramnimg. 3 fiimma (.1 differs from 3 period I ) and a colon 
(.) differs from 1 semicoKm ( ,). 
A minus sign I -) also differs from a hyphen and lonpvowel sign in Kan as 

ELxample Unders(and hii* Lomniands and s(itemen(i run, using ihii example and sample 

projtrams 

Noie(i). Gives programming noies 

Sec Alstt Some commands are used in a combinaiian Such commands and associated 

commands are given hen; 

Bniii messaties are listed in the Appendix. Wlien an error message is displayed, see this list lo 
locate the errnr 

The sample programs; given in thi5 manual tin be applied 10 your ch»ii programming by mfxlifi- 
calion and Imkuig 



Destripiion 



Command 



CONT 



{continue) 



Fiimiai 



Resumes exetulioii of piogiams previously interrupted hy the BRLAK key ui 
by (heSTOPs(-(emen( 

CONT 



D('scripii»n. A running program can be inieiiupied either by a STOP s(aiemeni placed in the 
piogtam or by hitting ih( BRtAK key (o see, for example, the content of a 
variable To ire the conienl of a variable, type the dirrct command PRINT 
"uanablf name"' f'lllowed by [CRl 
TypeCONT followed by [j'R] lo resume execution 

Noie ihat an Inleiiupled program cannot be resumed lis execution if you 
modify or add some new lines to it during the inleirupt In such cases, (he 
mesuge 

Can't uonrinue eiioi 



Example 



will appesr on the screen 



L1'..T 

la FOR 1=1 TU 9 

20 FOR J^l TO 9 

".0 PRINI 1«J5 

Aa NEXT JiPRINT 

50 STOP 

^0 NEXT I 



RUN 






1 2 


7 4 


5 6 ".' 


llr E»i- 


in 


50 


PRIN1 


1 ,J 


1 






Pead, 






CONT 






2 4 


h Q 


la i: 


t^real 


t n 


5Q 



la 



14 16 18 



Command 



DELETE 



Function Dcleics pads of a program from memory 

Formar DELETE siari line numbei - end line number 

deletes the lines beiwcen the indii:a(c<) line numbeis mc^ljsivcty 
DELbTt - line number 



DELETE line number 



DELETE line numbei 



Deletes lines fiom the youngest up to the one 

indicated by the line number 

Delete lines from Ihc one indicated by (he line 

number up (u (lie oldesl 

Delete only the line indicated by the line num' 

ber 



Eumple : 



Use (his command lo delete a group of lines al Ihc same tune. Ihough there are 
tome othe:meihods todeklepartsof a program described beiow 

• Type the liite number of ilie line you want to delete ard hil the IfRl 
key 

• Place the cursor |usl after the line number of the line you *an( 10 delete 
keep pressing ilie space key until the line cxcepi the number 11 erased 
from the screen, then llit Ihe |CR| key 

Although you can true lines from the Kreen with ih( space key or with the 
jlNS/DELj key, they remain in memory unld you hit Ihe CR key. The LIST 
commind will display the lines you have erased from (he screen without hitting 
the !^ key. 



DELETE ien-220 



DELETE ■ r5a 



DELETE 600- 



DELETE 100 



Com man tJ 



LIST 



Function Displays on the screen conlents of the ptojrani ir memory either partly 01 

cnlirel) 

Format LLIST 

where Ihe '- I minus sign I can he replatcd by a ' '(commal 
LLIST DiiplJv ihf enure piiigiam 

LLIST hne numhei Display onl^ liie line indicated bj ihc hue iium 

tiei 
LLIST line number line numbei 

Display Ihc lines between (he indicated line 

numbers in.:lusively 
LLIST lint njitihet Display from the line indicated by ihe line 

number 10 the end ol ilie program 
LLIST line numbei Display from ihe iiaii of (he piogiairi up ui the 

Imt indicalid by llic line number 

Destripiion Use (his commmd to look at or modify ilic program in memorv 
B>g programs will scroll oil the sirieen while you walcit 

Hit ihe space key to interrupt the flow, and hii i( once mote lo tonlinue Ihc 
flow 

Hii Ilie [break] key if you want (o abandon (he display 
You L-an modify Ihc content ol youi piogiam thus displayed Isciecn edit) 



b'iBmpli' 



LIST 

I'O FOH N=l TfJ 20 

-.a FLff' M=l III N 

40 F-RINI "■"; 

■.Lfi IJt). I f. 

bZ PI^INl 

-■11 Nt t M 



Command 



LLIST 



Function, (:)uipiiis 10 (he priniei conrents ol (he priigiim in meinoiy eithei patily 01 
eniiiely 

Format lliST 

LUST Pnni the enure piogtam 

LUST hne numbei Print only the line indicated by the line nurnl>ei 

LUST line number ~ line numbei 

Pnni Ihe lines between the indicated line lum 

beis inclusively 
LLIST hne numbei - Print fiom ihe line mditaicd by ihe line nuni 

fter 10 (he end of the piogram 
LUST - line number Prmt from the slarl of (he pfogiani up m (be 

line indicated by the line numbei 

Description Use ibis stalemeni to piinloul parts or Ihe entire contents of your piogiams. foi 
checking 01 for presirvance. 



Eiampl? 



LLIST 

LLIST 100 

LLIST -IBB 

LLIST laa- 

LLIST 10ia-2ldlD 



Command 



LOAD 



Funclion Lojds pri:>giam!: Irum liisk 

Fonnai LOAD 'TileniiHe" 

Etcstriplion Display llie namei iif pnifiiims on dlifc wilh ihe FILLS commmd Then niowc 
ihe tuiioi 10 ihe name of Ok ptngiiin you wjnl lii loatl. Type LOAD and liii 
the (CB] key 
Tht piogcam you miiicaled will be lo;idcd Inio menioiy 



Command 



NEWON 



Function Sell the siail aildicu foi Ibe BASIC piogiani area 

Forniat NEWON iiaii address 

Deicnplion. This command allocales areas of memory starling from Ihe given addreJS lo 
BASIC prograni, irrayi, variablei and so on. 



Note 



Example: 



You cannot set the address wilhin ihe aiea for Hie BASIC mlerpietet, work area, 
nor m the aicd highei than Ihe address pieviously sei by the LIMIT siatement. 
This command. Uke the NEW jlatemetit. delelcs Male progtami currently in 
memory. 



NEblON ^HCBBB 



Example : 



FILES -" 

"SAMF'LE 1. baa" 
"SAMPLE 2.bas" 
■'SAMPLE 7. bss" 
LOAD "DEMO I.bas" 

"DEMO Z.bes" 
"DEMO r.bas" 

"DEMD I.bas" 
"SOUND I.T5T" 
"SOUND 2.T5T-' 

4''t Bvtei f r 6-t? 



Commwtd 



M£tRGE 



Funcuon MergB»(joini)»projiam on disk wiih the prugiam mmemoiy 

Formal: JMSRCE "rikname" 



DeKripiion 



Eiample 



This command mergei a progrim on disk with thai in memory and thereby 

creates one single progiam in memory 

Nolc that hiw numbers uicd in one program muil nol appear in ihe olhei Use 

RENUM foi this purpose 

For EKample. if Ihe piogiun m memory has line numbcis 10 Ihiu 500, number 

the program on disk to be merged slailmg tiom 5 10 

If a same line numbei appeared m boih piogtami, the conlenli of the line under 

thai line number of (he merging progiam would override the oihei, 

FILES 



Command 



RENUM 



(vanumbar) 



Function: Rejequencej the line numbers o( a piogiam 

Format flENUM new Une number, curieni Ime number, increment 

Descnptiun. R£NUM followed by the [PS] key will resequence the line numbers slartuig 
from 10 with an incremeni of 10 The line numbeii appearing m a GOTO slate- 
mem oi in a GOSUB naiemenl will be adjusted accordingly 
If you omil increment. II defaults 10 10 

Noie If there is a hne number ihai does nol exiii in the progiam and yel ii refeicnced 

m one of GOTO. GOSUB. IFTHEN and RESTORE siaiemenli. then this 
command will cause ihe Undefd luie number ciior 



Eumplc ; 



"SAMPLE 


1 


bdia 


" SAMPLE 


2 


bd^ 


"SAMPLE 


7. 


bas 


"DEMO 


I 


bas 


■'DEMO 


z 


bas 


"DEMO 


z 


bas 


"DEMO 


4 


ba^ 


"SOUND 


1 


TST 


MERDE"5nUND 


2 


rsT 



191 Bytes free 



Command 



NEW 



Function Deletes piograms and icsc Is variables in memory 



RENUM 

RENun laa 

RENUM 700.2(30 
RENUM -O2t,2Q0,5Q 



Command 



RUN 



Function Starts eneculion of a progiam 

Format RUN Starts exeeuiion fiom Ihe beginning of ihe program in 

memOfy 
RUN line number Slam esecution from the line speciFied by line number 
RUN fitename Stalls execution of the named program iflei loading it 

from disk 

Description Though SCilOOO has a function key foi it, this staiement is still useful if you 
warn 10 execute a program from a given Ime 01 execute one of two programs in 
memory dcmaicalcd by sepaiate line numbers. 



Formal 



Descnption 



Bxamplet 



New 



If you input lines of i progiam while there is some other piogtam still in 
memory, they gel mingled up and may lead 10 sontie unexpected resull or error. 
Vou must execuie ihis tommand lo delete some previous program from memory 
whenever you inpul a new piogiam. 

To see whether there li some program siill in memory, use the LIST command 
If there is one. delete 11 wiih ihis command 



NCH 



Eiample : 



LIST 

IBB A=1Q0 

: IQ PRINT A 

RUN 
100 

RUN IQQ 

Ready 



Command 



SAVE 



Function Sivw the progrim ui memory onto floppy ditlu 

Foimit: SAVE "fiJen»jne.ex«enuon'' 



DcKnpUon. 



EzBoiple : 



Fil«nimc is i name you pve to a progfim lo lomehow tentembei m function. 

And a progrim can be saved onJy afiei you hive chiistered it. 

Etthei 1 compleie piogrim oi a program under developmenr can be saved. 

When you create a big program, you cm [empoianJy leave the job by iavmg 

youi iniermediaic reujil. and later lesiunr ih« job by loading ii back 

Filename ii Umiied lo up lo 8 characters opiicinally followed by a ■ '(penod) 

and a 3-character exteiuion. 

if yoii save a program under i name, and if itieie ii a piogram under that name 

on disk, then Ihe ptogram on disk will be replaced by the newly saved one If 

you mtkt some mcMjincation lu a program Lhal was previously saved on disk, 

then choose [he same name as ihal of the program. Bui if you want to save the 

modifted program separately, then choose parily differenl name from the 

origmal one 

This is because, on disk save, (he place to wh»re programs go is selected from the 

given floppy disk unit. 



SAVE "SAMPLE a.TST' 



Sat >lao ; LORD , FILES 



Com m and 



UTILITY 



Funcuan' 



Foimit: 



Descnpiion. 



Enters the disk utiJiIy program which in turn accepts the follovting commands 
described below 

UTIUTY ICR] 

UTILITY commands. 

F. Format disks 

C; Copy driks 

B Do a BOOT 
F Disk formatting 

A new disk can be used only after you have formatted it Type this com- 
mand Sel your disk into the drive and type F foilowfd by |CR| " 

Don'i do anytfiing before the cursor appears on the icteen. since mtcr- 

njption of Ihis cornmand sometimes means disk deslruclion. 

Note also (tiat if ytiu formal a disk with some programs siill in it. the 

programs are deleted. 
C. Sometimes, though rarely, a disk may be damaged and become useless 

with all IIS ptasiic coverage 

Vou are retommended to lake copies of your important prDgrvns by this 

command against sjch disastei. 
8 Do a BOOT 
How to copy your disks 

Press the [c] key followed by the ^ . 

Set the floppy disk you want to hive a copy of (SOURCE DISK), then 

press Ihe space key. 

Ten tracks of data will be read into the drive. 

Pressing the spate key at this time will stait the copy. The copy will like 

some lime. Don'i micrrupi the disk unit while copying since it will 

destroy the copy. 

If you use a disk with some programs already in it, those programs will be 

replaced by the newly copied ones. 

Repeat the above procedute 4 times to complete the copy on one side 

The message 

copy complete 

will appear on the screen on compleiion of (he copy. 

Copy uses 1 different format than that used in save So although Ihe 

BASIC system cannot be saved onto disks, il can be copied there. 

Take a backup of your BASIC system by copying it to some disk. 



Set also: 



BOOT 



Command 



VERIFV 



Funciion: Compares the progitm lived on ciSKlle and the program in memory 

Formal: VERIFY ■■fiienirrw'' 

Deiciiplion. This command checks whether the progj-ari in memory has been correctly saved 
onto cassclle. 

Rewind the tape upto where you ilvled the save. 
Type 

VERJFY "filename" 

followed by pressing down the [CRl key. 
Then push the play (LOAD) key on the tape recorder. 

If no difference is found between the piotrvn in memory and the progrun Mved 
on cuieile, the memge 

Verify end 

will ippev on the icteen. 

If Ihe message would not appear, push Ihe rcict key lo break Ihe command and 

reitarl from the uve. 



Example : 



See also; 



VERIFY 

* yen* y» nq start 

Found xKxx 

• yerifying end 



SAVE, LOAD 



Stal»mant 



BCIRCLE 



Function EriKs Iwes or circles drawn on the sciten. 

Formal BCIRCLE (X.Y), radius, ratio, sianing point, end point. BF. 

Deiciipbon The slatement is uKd m the same way as the CIRCLE stiiemenl to erase desired 
ana. though you cannoi specify color to ihis slalemenl. 
The color coneiponding to bil "0" is chotcn (o tnx the area 



Eiample ' 



SmAIk: 



la SCREEN 2,::::cls 

2Q FOR R=5 TD 1 STEP -1 

30 CIRCLE (129,90) , R*1ID,R . 1 , , i ,Eif 

40 BCIRCLE ( 129,901 ,R*9, . 1 ,3, 1 ,BF 

50 NEXT R 

6.a GOTO t0 



CIRCLE. COLOR 



StatMMnt 



BEEP 



Function: Cenentes i beep sound 

Formal BEEPn 

Deicriplion n must be in the range thru 2 
BEEP Beep 

BEEP Stop beepmg caused by BEEP 1 
BEEP I Keep beeping 
BEEP 2 Generate sound like peep poop 

EiaiDpIe : 



10 DIM fl»( 12) 

20 FOR N=a TO 12 

30 READ fl» INI 

40 PRINT A» [NJ ! 

50 BEEP 

60 NEXT N 

70 DATA H,D,M,E, 

RUN 

HOME COMPUTER 



",C,0,n,P,U,T,E,R 



Ready 



Statam«nt 



BLINE 



Fungion Erases by Une or rectangle. 

Formal. OLINE (XI, Yl) - (X2, V2) 

BLINE (XI. Yl) - (X2. Y2).BF 

Oetcription: Colors cannot be ipeafred lo the BLINE ilitement The color chosen is the 
color of the badcground it the lime of execution of this siatement. 
TTie color of the background corresponds ro bit "0". The BF sptcirication will 
etise the rectangular ajeadetermmetl by (XI. Yl) and (X2. Y2). 



Example 



See Alio: 



IB SCREEN 2.2:CLS 

20 FDR R=5 TO 1 STEP -1 

7.0 CIRCLE !12B, 90) , R»10, R. I , 0, 1 ,BF 

40 BC1RCLE(128,90) ,R«-<?, ,1 ,B, 1 ,BF 

50 NEXT R 
60 GOTO 60 



UNE. COLOR 



Statwnwit 



CALL 



FuiKtion: Calls machine lin|u*ee mbtouCifiei 



Foimii : 



CALLitart addrets 



Deicnpuon: Since machine language piogtamt are placed outiide the BASIC program ire», 
you muil uie this italemenl to call a machine language lubiourine. 



EiAmple ; 



la LIMIT iHDFFF : CLS 

20 FDR fl=5!HE0B0 TD ^HE0S2 

30 REOD DIiDsyfiL ("T'H"+D«) 

40 POKE fl,D 

50 NEXT R 

60 CALL ^'HEBOS 

70 CURSOR Z,2tPRINT TfiB ( 3-0»RND ( 1 ) 1 

BO GOTO b0 

100 DATA F3,C5,D5,E5,F5,06, 16,0E 

110 DftTfl 0a,CO,r-D,ECl,CD,58,E0,EB 

120 DATA 21 ,87,E0,OE,27,CD,6S,E0 

13-0 DATA 77,23,0D,2O,Fa,eB,7D,C6 

140 DfiTfi Za,6F,30,ai ,24,CD,6D,E0 

ISO DfiTA 21 ,a3,E0,aE,27,7E,CD,7D 

1£>0 DATA EB,23,0D, 20, FB, 10,00, Fl 

170 DATA El ,D1 ,CI ,FB,C9,C5,D5,2i» 

180 DATA 00,68,29.29,29,54,50,29 

190 DATA 29,19.16,00,59,19,11,00 

200 DATA 3C, 19,D1 .C1,C9,0B,BF,C9 

210 DATA F5,CD.55,E0,"7D,D:;,BF,7C 

220 DATA E6,3F,D3,E'F,Ft ,C9,QO,O0 

230 DATA a0,0O,DB,BE.C9,F5,CD,55 

240 DATA E0.7D,D3,BF", 7C,E6,3F,F6 

250 DATA 40,D3,8F,F1 ,C9,00,O0,0O 

260 DATA D3,BE,C9 



S«eil» 



LIMIT 



SutattMnt 



CIRCLE 



FuiKtton; Dnwt circles around givep poinu. 

Formal, CIRCLE (X, Y). radius, color, ratio, starting point, end point, BF, 



OetcTiption- 



The ttiEcment drawj a circle around the given point (X. Y), The aiguments to 
Chii staiemem are explained u follows 

Radius, The Kale for (his quaniiiy n measured in pixels (dots If the 

length of the diameier go beyond the mmmum value allowed for 
the coordinate, the part coming ouiiide the coordinate will be 
diawn as a sttaighi line. 

Color' Specified by the color code. 

Radio: Ratio of diameter lo the horizontal axis explained as foUowt: 

Is equal to I The ratio is 1 to 1 and the circle drawn will be a 

true circle 

U less than I And elLpte will be drawn with its horizontal 
diameter greater than the vertical diameter, 
T^e allowable number of decimal places to the 
left of the decimal point is restricted to 1 (D.l, 
0,2. . I}. 

lii greater than t An eUipse with its vertical diameter greater than 

the horizontal diameter. The allowable values are 
1.1,1.2, ..up to 1. 

Siartingpoini.Just imagine a clock. The circumference of any circle ii so 
measured that the number corresponds to the position the mull 
hand points at i o'clock, and hence the number incrcaici clodc- 
wite along with the circumfeTtnce up lo i which rmilly comet lo 
overlap with the starting point. 

You can stsn drawing beginning from any point on the circle by 
specifying a decimal fraciion between and I. 
The fraction can be up to two decimal places. 

End point: Can be any decimal fraction between and I inclusive The 
Qumbtr 1 correiponds to the position Che unail hand pointi at 
3 o'clock. 

Supply the values like 0.25, 0.7S inilead of 1 25, 1.75 since 
values greater than I will draw circles past the starting point. 



Specifying B alone will draw line scgmenu connecting the center 
of the cucle to the starling and the end pomls. 

Speciiying F in addition to B will paint the regior) drawn by the B 
specification 

The aigumcnts to the CIRCLE statement can be omitted except 
the coordinate of the center and the radius 

If you omit color specification , the color employed by some 
previous statement wilt be used. 

If you otnii ratio, it dtfaula to I , 

If you omit ihe starting point specififalion. it default* lo 

If you omit the end point specification, it defaults to I 

You cinnoi specify F without specifying B 

You need type onty thoK argiutKnts you need if you want lo 
omit every arguments coming afler a certain argumeni 
If you want to omit those arguments the positions of which come 
between other arguments, you need supply commas to indicate 
you have omitted those at^rrwnls (see example below). 



BF: 

Omitting 
argumenli: 



Example: CIRCLE (X, Y). 50 

CIRCLE(X, Y).50, 8, ...BF 



10 SCREEM 2,2:CL3 

20 FOR X-50 TO 200 STEP S 

30 CIRCLE (X,90> ,60. 1, 1 ,0, 1 

40 NEXT 

50 FOR )(=50 ro 20B STEP 5 

60 BCIRCLE (X,9e),6e 

70 NEXT 



StitMnsnt 



CLOADM 



Function Loads machine language progiams fiQir caiielie 

Formal CLOADM "filename", load start address 

Description: This staiemem loads the michine language piogiam on cuacttc indicated by the 
"filename" onto merrory If you specify load start address, load will siarf from 
thai address, 

Ifnot, il will slart from the address as previously indicated by CSAVEM. 
If you omit "filename", the first program encountered on cassette duruig the 
load will be loaded. 



Nota: 



EiBDiple ■ 



The nienimt mutt be the one you chrUtened on save, oiherwise ihe menige 
"Skip" will be printed and no load will be done 



CLDfiDM 

•■ Loadi ng stcir t 

Found DBJ: HEX DfiTfi 
• Load! ng end 
Ready 



SaUfTwnt 



CLS 



(clur Krwn) 



Function: Clean the currently SLiive part of the screen 

Fojmai. CLS 



Descnpiion' 



Example : 



This staiemcnt erases everyihmg, progmns and results displayed by the previous 
run oF lUme pragrami, from Iht: cuirenL window (the pari of the Kreen which 
II currently active). Nu other part of the screen other than currently active 
window wtU be affected by this stalcment. 



SCREEN 2,r:CLS 
Ready 



Note: 



Additional 
Informalion' 



Eismple : 



IQ CLS 

20 FOR E=a TO 
Za PRINT I: 
40 NEXT E 



Ststanwnt 



COLOR 



Function ' Sets color on the screen 

Formal For the Icit window. 

COLOR color code for character, color code for backgiound for the graphia 

screen. 

For the graphics screen 

iMLORcl.cOfXI.Yl)- (X2.Y2).cb 

DescTiption: c1: The color corresponding to bil "I" (clur for chaiicien and lines) 
The color applies to 
' Characters pnnied by the PRJNT statement 

■ Points or lines diiwn by the PSET, LINE or CIRCLE iiaiement) 

■ Areas to be painted by Che BF qicciricattoo |o Ih< UNE Ot BUNE 
ititement 

cO: TTw color corresponding lo bit "0" (background cohii) 
Which applies to 

* The window and the background afler cuecutton of the CLS italemenl 

• The pan with bu "\" reset by the PRESET. BLINE or BCIRCLE 
statements. 

(XI,YI)-(X:,Y2) 

Paint innde the rectangle having [he Kgment connecting (XI, Yl) and 

(X2,Y2)ai.iidi;^on»l. 

TIk cO aJKument muil be specified. 

cb: Color of the backdrop 

( Equivalent to "liansparency") 

The backdrop it the upper and the lower margins of the screen in which 
neither charaaen or symbols, nor points or Lues can be drawn. 
"Traniparency" corresponds to the color of these marginl. 
Each color has a code atsociated with it. 
Color Cadi Tafab 



The unit of area wnh which color can change from one to another consist! of 
a horizontal row of i successive pixels (pixel is equrvalenl to picture element, 
which is the smallest dol of which characters or figures are comprised |. Any area 
connsiingof a successive tow of B pixels can contain up lo 2 colors including the 
color for the background, which means color for points ot linej cannot vary 
within the area. And if you specify 3 different colors to paint the area, the 
entire area will be painted by the 3rd color speciFied. 
Remind ihn fact when you use the LINE, CIRCLE or the PSET sl»t-nr>ent 
The above mentioned units are not placed arbitrarily on tfic screen. On any one 
Une of the screen, the first unit conxiiis of from lo Tth pixels, next from B to 
IS pixels, and so on. 



You can find m the explanation of the graphics mode for the SC-3000 those 

words such as pixel, dot and bit, 

A pixel is the least unit of point used to draw figum in the graphics mode 

A bit is the least unit your computer can understand 

A dot Is 3 least unit for drawing pictures under a certaai condition. 

In the world of the 503000 graphics mode, pixel, dol oi bit are usually 
synonyms each oiher. 



10 SCREEN 2,2:CLS 

2B FOR i4=l TO 12 

~0 COLOR A, 15 

40 1 OR 1=1 TO 82SPRINTCHR*! 141>.;iNEXT 

50 NEXT A 

.^0 FOR C=l ID 15 

70 FOR Y=a TO 191 STEP 2 

B0 COLOR ,C, 10. Y )- C255,Y) 

90 NEXT * 

100 FOR X=a TO 255 STEP 3 

110 COLOR .C.(X,a)-(X.191) 

i:;e NEXT x,c 

r.'-B GOTD to 



StaUnMfit 



CONSOLE 



Function" 



Format 



Sets the cursor scroll limit for Ihe text window, corn loli the on/off of (he click 
sound, switching between upper and lower cases fui characters, and lelecis 
printer(#l.#2). 



CONSOLE u.l 
where 



c.s.p 



u. Scroll upper limit (0 thru 22) 

1: Scroll length (greater than or equal to 2) 

c Click sound on/nff (0 = off. I = on) 

s Change case (0 = upper case. I = lower case) 

p Select prmter ( I = pnniet #1,2' printer tt2) 

Al boot lime, each value is initialized as u" 0. 1= 24. c = l.s = 0. p = I 

Descriptton The vaJues set by this statement are not altered (including program abort) unless 
delivered by the reset key ot reset by anoihei CONSOLE statement. 
Prinlci «l corresponds to the SECA SP-400 
Printer tf2 is for a Centronics type ptinlei. 



Eaampie: 



Color 


Color 


Color 
ccxJa 


Color 


ColOf 
coda 


Color 





Transpii'iiKv 


6 


Dark r«d 


13 


Dark grMn 


1 

2 


Bl*ck 
Grtttn 


7 


Light blue 
(cv»n«l 


13 
14 


Maitnta 
Gray 


3 

4 


Ll^tgmn 
Dark blua 
Light blue 


9 
10 

11 


Light red 
Dark vellow 
Light yallow 


15 


White 



LIST 

lOB CL5:N = 2'V 

1 10 FOR 1^1 TD 7 

120 READ A» 

I'B GOSU& 260 

1 40 CONSOLE 1 , N 

150 NEXT I 

160 DATA " ••• 

170 DATA -• • 

IBO DATA "• 

190 DATA " ••• 

200 DATA ■■ • 

210 DATA "■ • 

220 DATA ■■ ■•• 

230 CONSOLE 0,21 

240 CURSOR 0, 10 

250 END 

260 CURSOR 0,23 

270 FOR P=l TO 30 

280 PRINT MID*(A»,P,1> s:BEEP 

290 NEXT F 

300 N=N-1 

310 FOR J=l TO N 

320 PRINT 

7-30 NEXT J 

340 RETURN 



10 



Ststimenl 



CSAVEM 



FuRcuon. Snn rmchine langutfc piogiams onto cuscllc 

Formal: CSAVEM "nicname'". dui iddresi. end address 

DcKnpuon: This slatemeni saves Oie m«chwe languige progtun in memofy onto ciwene 
(apes Filename m this cue is limited to up to 16 characters and has no txieit- 
sioa 



Eiample : 



CSflUEM "HEX DATA " ,!,HF0O0,T-HFFFF 

• Saving start 

* Saving end 
Ready 



Statamsnt 



CURSOR 



Funclion Sets Ihi cursor on the specified posilioD 

J 

Foimai. CURSOR horizontal poiilion. vcfdcal position 



Biample : 



LIST 

10 READ A,B,C,D 
20 PRINT A+B*C+D 
100 DATA 1 ,2,3,* 

RUN 
10 
Ready 



S«»Uo: 



READ. RESTORE 



Sutwn»nt 



DEF FN 



Function: Defines usei funciions 



Dcicnplioii 



thru 37 
thru 2J 



OthniISS 

Oihni 111 



Eaampl« : 



When used on the text window 

horizonial pouiion rnuti be in the range: 

vetiicii position mjsl be m the range 
When used on the graphics! window 

honzonla) position musi be m the range 

vertical position must be in (he langc 
In eilhet of the above cases, ranges out of ihe ones as specified will cause ■"State- 
ment parameter error," 

If you change the origin of a cootdinaie on the graphics window wilh Ihe 
POSITION statement, the range of the values which can be handled on the 
coordinate will alu> change. 

The posiiive range (with respect to the origin) will now be bounded by maxi- 
mum value - specified coordinate , while the negalive range by the negative value 
of (he ongin 
The range in this case of couise means integer range. 



CURSOR IB. 12 :PRINT "A" 



Formal. 



DEF FN function namelaigumeni) = funclion definiiiun expression 



Descnption Function name musl be longer Ihan 2 characieri including (he head "FN " 

The third chiiacter ol any function name must be alphabetic, and no reserved 
word (such as conunADd names) must appear in ii- 



(Coireci) 
(W(ong) 



FNA FNB FNCD 
FNABS FNI FMC 



Function names are distinguished only by up to 2 characters following "FN " 

This means two function names wiih the same two characters after "FN" are 

Indistinguishable 

Fci example, the following iwo function nimei 

FNSECA and FNSE 

are regarded to be the same. 

Also, the value of the argument you supply to yout function does not change 

ariei Ihe func(ion invocaiian. 



Example 



e'-e-« 



coih* = 



e" +«-' 



Sec also: 



IB SCREEN 2,2: CLS 

20 CIMSOR 1=5,'?5:PRINT "A' 



POSITION 



Ststamtnt 



DATA 



Function: Supplied data to a READ tiaiement 

Formal DATA numeric value or charicler stiiitj; 

Dejcripiion; Multtpfc number of data can be supplied lo thit ilaiemeoi urn DATA 1. Z. 3. 
4 where comma is used to diitinguiih each diatum. 
Chaiaciei strings need nol be enclosed in double quotes except 

wrtiich must be doubk-quoled as shown below: 



If 1 numeric dalum corresponds to a characler Jtrmg variable in the correspond- 

ing READ itatemenl. the datum will be regarded as a character siring and hence 

cannot be used in a numeric expression 

TTie number of data in the staiemeni and the number of arguments in the 

corresponding READ statement must be the vtmt. 

If the number of data in (he statement and the number of arguments in the 

corresponding READ statement, only the data corresponding (o the argumenls 

wiU be utilized. An error will occur if the number of arguments in a READ 

tlatement exceeds that of (he data in the corresponding DATA statement. 

The READ statement, once executed, teadt data from the corresponding DATA 

statement independent of the latter statement's position m the pfogtam. 



Let's defme the above functions 

10 DEF FhlSHtX>-tEXP(X) -EXP(-X) W2 

20 DEF FN[:H(X) = IEXPIX) +exP(-X> )/2 

70 INPUT "X = ";); 

40 PRINT "smh t:i)="!FXSH(XJ 

50 PRINT "cQshI::)=";FNCH(X) 



StstBnwnt 



DIM 



Funcuon Declares arrays. Dimension it limited up to 3. 

Format DIM amy name (subscript range) 

DIM A (20) 
DIM BS (5.5), DIM C (2. 3. 4) 

DcKnption. Arrays are either onedimennonal anay or multi-dimeiuional. Multt-dimenaonal 
■nay is limited up lo 3-dimensiona] array. 
Dcclanng ihe one-dime nsional array 

A (5) 

where the number in the paieniheses is called a subcript, is equivalent (o 
declaims the following six variables' 

A(0).A(U,A121,A<3).A(4),A(5) 

ChatKier »Uing aniyi can be declared also. 

You CU1 use an array elentfnl without the neceuary declaration but in that case 

the lubicnpt range ia 10. 

A (wo -dimensional anay 

B(5,5) 

and a three-dimensional array 
C(3J.3) 

11 



Biamida: 



S«c alK}: 



LIST 

la CLS 

20 DIM 6<9,9) 

30 FDR J=l TO 9 

40 FOR K=l TO 9 

50 AiJ,K>=J*K 

60 IF J«K.. 10 THEN PRINT" '■ ( 

70 PRINT flIJ.K) : 

80 NEXT K 

90 PRINT 

100 NEXT J 



ERASE 



StiMment 



END 



Function: 
Formal 



Pull an «nd to progtimi 
END 



Descnpiion Append ihis siaicmenl lo ilie end of a piogDm il the flow nf ihe program 
Follows Ihe line numb*' 

Bui those ptogtams having !uhrouiines ai their lail rtiuii end somewhere before 
Ihe iasi suiement, Pui an end to iheiti wiih ihii siiieraenT. 



Eaamplf : 



10 GQ5UB 100 

10 PRINT" LET B^SIC STUDY' 

30 END 

100 FDR N=0 TD zy 

200 PRINT"*'M20 NEXT N 

130 RETURN 



Stannwnt 



ERASE 



Thr FOR-NEXT siaierneni can be nested lyoii tan put a FOR-NEXT staie- 

menl withm anoih^r FOR-NEXT ilalemenO, bul In which case you must um 

dimrci nanabki 

A convenitnl way Is to have ihe NEXT ilalemeni two vaiubles, one foi the 

inner and the other for the outer FOR, bul in thai case you miul put the 

variable Tor ihe innei FOR Ihe rinl. 

The depth of one nesl can be up lo S. 

In the foUowing cases, siatetnents following the FOR siaiemeni li executed only 

once: 

Inilial value is smaller Ihan final value and increment is negatrve 

Initial value is greater than final value and mcremenl ii positive 

Initial value u equal to final value 

There a n« NEXT ititemeni 



SiStMIMfIt 



GOSUB - RETURN 



FiukUoh: 



Fomwi: 



Description 



Note 



Eiampta : 



Calls and exccuiH • (ubioutinei after wbrouiint txccution. rttumi lo the line 
succeeding the GOSUB natement. 

GOSUB line-number 

1 
RETURN 

Line-number ipecifici Ihc tirtt line numbci of the fubroutine The lubrouline it 

an independent piogram placed inaide or at the end of the prograni and ii called 

vhen neceuary Specify a RETURN itatement ipeciTKi retunting lo ihc line 

nu»:eeding ihe GOSUB itatement 

Conuol can tranifet from a lubnutine lo another nbroutine in a neMed nib- 

routine structure 

Subroutines can be ncned up to level 8; if this u exceeded, a GOSUB nertin* 

error occun. 

TTie control relumed by a RETURN ilaumeni miut nol (0 lo • RETURN 
Itatement If a RETURN ilaieinent is encMinieied by a fltlemenl oihet than a 
GOSUB flaterwnt. a RETURN withoul GOSUB error occun. 



Function. Casceli an'iy dechraiiom 



Formal. 



ERASE 

ERASE array name, urayname 



E>ca:nption: If you omit arraynime, all array d«clataiioni wilt be canceled 

With a piogtani, you cannot declare arrayi twice under i same name Bui if 
Ihe program flow foiccs you to do so, uie Ihii italemeni lo cancel the Fomtei 
dcclaraUon. 



EKample 



IQO ERASE 



200 ERASE fi,B% 



Statamant 



FOR-NEXT-STEP 



Funciion- Repeats Imes inserted between ihe FOR and the NEXT statements 

Formal. FOB numeric variable ' initial value TO final value STEP mcremenl 

NEXT numeric variable 

Descnpiion You can insert beiween the FOR and the NEXT sutements Ihe part of your 
program you want to repeat many limes. When the piogram reaches lo Ihe 
NEXT sialemeni. the variable gets incremented by Ihe amount you specified just 
after STEP, and Ihal part of yours between the FOR and ihe NEXT statements 
II repeated once ntotf. 

When ihe value of the variable reaches to the final value you specified just after 
TO, then those staHmeni jusi afiei ihe NEXT sialemeni wii; begin to execute 
If you omit the STEP incremeni part, the inclement defaults to I. 
Note thai the incremeni must be a negative value lo '"count down" if the initial 
value IS greater than ihe final value. 



INPUT"scare":A 

IF A, =65 THEN EOSUB 50 

IF Av65 THEN BOSUB 70 

40 GOTO 10 

50 PRINT'-acceptable" 

60 RETURN 

70 PR I NT "unacceptable 

80 RETUfW 



10 
20 
30 



Sh Alao: ON IXISUB 



SQttmMit 



GOTO 



Function; Jumpa to the specified line numbei. 

Format GOTO line-number 



Deicnption 



Eiample: 



Program execution starts from the smallest Ime number. When a GOTO state- 
ment ii encountered, ihe control unconditionally jumpt to Ihe spccifkd line 
number. 

A diiect command can specify starting program execution from an arbilrary Ime 
number specifwd in a GOTO statement. In this case, the variable value temains 
unchanged. The variable value can be kjiown by directly execulmg a PRINT 
variable. 
When a RUN oi RUN Ikie-number it executed, all variable values ire cleared . 



10 INPUT"A=";A 

20 INPUT"B=" ; E" 

-0 C=fl+B 

40 PRINT"A*El="; C 

50 GOTO 10 



Sm Alao: ON GOTO 



12 



StatMTMnI 



HCOPY 



(hard copy) 



Funclioii: Outpui* to iht printei current Kra«n imige 



Fomui: 



HCOPY 

HCOPY n, entaiBeiMni 



DtKnplwn. Thii lUtemeW leli you printout current im«n of .he .«i window or tht 
gi^hici window 
The funttion of thii (Ulement is governed by the type of youi prinlec 

Th« SEGA prinwr SP-400 

Only the tent window cin be printed-oul Alw the pnnLable chiiKiers »re 
iMtricted to the ASCII codei only ind the gi.ptuci tyraboli for the SC3000 
cincoi bepnnied 

TiM EPSON NP-WHI ICtntranin typa) 

Both the text window wid the graphics window cm be prtnted-oul. Select 

pnnler mode according to the following injlmcl.oni pnor to the execution of 

HCOPYt 

o Hit ihe Z key while keeping down the coniiol key 
o Sun>ty 2 to the CONSOLE ttjlement to select Iht prinlei 
After yw. hiw switched to the pnnie. mode,#2. select the window u foUowi 

HCOPY ] Printout the text window (1 cin be omilled) 

HCOPY 2 (Gr»phici window), enlargement 
If yoti omil n ui your prolan, the window currently acli** will be pnnled out 
The enlfrgemeni a expliined u foUowi 

Stuidvd (0 can be omitlcdj 

1 ; Double the scale of horizonul direction 

2: Double the *ctJe of verticil direction 

3; Double the icak of both duectioiu 



EiBcnple : 



ChanclCT (tiingi need not be encioted in double quotes. 

The statement displiys Redo fioin start and waits for your input once agan if it 

fuid^ [ypc misnitch between the variable and the data you input. 

If you hit juil the CR key (without my other charactera or numbers) to the 

statement's mpui tequeil, following values will be auigned to the vinablei; 

when the variable is numenc 

null string when the vaiubic u chaiactci slruig. 
Null Jlnng is the string having no chariciers in ii 



10 CLS 

20 CURSOR llB.3:PRINT'"mBnu" 

30 CURSOR ia,6:PRINT" 1. . .drint '■ 

40 CURSOR 10,8!PRINT"2. . . fooc) " 

50 CURSOR 10, 10:PRINT"T-. . .rfesaerf ' 

60 CURSOR 10, I": INPUT ■'order '^■':A 

70 ON A [^OSUEi 100,200,7(90 

ea GOTO O0 

10, leirPftlNl" " 

10. 16jPRINT'cot*ee. . .*1.0B' 



100 CURSOR 

110 CURSOR 

120 RETURN 

200 CURSOR lO.lbsPRINT- 

210 CURSOR 10, 16:PRmT"cal-e. . 

220 RETURN 

7B0 CURSOR 

310 CURSOR 

320 RETURN 



«2.eo" 



10. 16i:FRlNT" 

10, li:FRirjT'- melon. . . tZaB-' 



Bumple: 



HCOPY 



Sunmwit 



IF-THEN 



Function 



Forniat, 



Description 



Eiample : 



Conditionally )umps to the speciCicd line number or eiocutei the sl«ienieiit(B) 
foUowing THEN 

IF conditional expreuion THEN line number 
IF conditional expression GOTO Imi numbei 
IF conditional eiptcssion THEN itatemcn[(s) 

if the conditional expiession ie true, then eilhei the staiemeni placed after 
THEN, or the ttatemeni indicated by the Ime number supplied after GOTO or 
THEN is executed 

If the condition m fala?. the line immediately following Ihe IF-THEN 
statement is executed. 

Conditional expressions ire usually compansoni nr logical upeiaiiorit A condi 
Iionalexpreiiioniakes the value -1 if the condition ig true, and otherwise 
You can place more ihan one italemenl after THEN, in which case those state- 
ments aie executed only when the condition is true 



IB INPUT "store "jA 

■^B IF A- 50 THEN PRINT"unaccBptable" 
-10 IF A 49 AND A< 60 THEN PRlNT'-bor der 1 1 ne' 
40 IF A-S9 AND A--70 THEN PR IIMT "accept abl e' 
IF A 69 THEN PRINT-liqht stat+ " 



StitMnMit 



LET 



Funcuon Stoies (auipit) the right-hand-side value 10 the lefi-hand-iide variable or an artiy 

element 

Fonnat. LET variable or an array ekmenl - numeric efcptesjion 

LET character string variable or character string array element • chuacict string 

Description. LET is an astignment statement itonng the rijht-handiide value to the left- 
hand- side variable or array elemenl 
Typing, without "LET" 

hat quite Ihe same effect as typing 
UTX = S 

The equal sign '=^' above does not mean, as does in mathematics, the equality 

between the right -hand -side and the left'hand-iide 



Euniple : 



50 

60 eOTO lO 



StitMiHnt 



INPUT 



Function: GetslnpuUof ntimeiicvahies and strings of characten from keyboard 

Format: INPUT A. BS numeric or charMter string variable 

INPUT "prompt": numetic or character string variable 

Description: This statement, once executed tn your program, waits for your input by putting 
a "■*" (question mark) onto the screen. If you supply "prompt," then the 
waiting signal will be "prompt" with no question mack added to it 
Numbers or charKtcn typed ui response to the waiting ngnal (prompt) followed 
by Ihe CR key wdl be assigned to the i;or responding variables 
If the statement has more than one variable, the waiting signal for the second 
variable and on will be the string of two consecutive question marics (7?(. 

INPUT A,fl,C 



LIST 

10 LET A=3 

20 LET 8=5 

r-0 LET C = A + B 

40 PRINT C 

50 END 

RUN 

e 

Reiidy 



Stitam«nt 



LIMIT 



Function Sets the end address for the BASIC program area 

Format. LIMIT end address 

Description: This statement sets the limit for the BASIC program area, and thereby sets the 
limit for the user workable area. 

You cannot specify an address within the work area for the BASIC interpreter, 
nor lower than the address as previously set by Ihe NEWON statement. 
Aflei the execution of this statement, you can use freely the area higher than or 
equal to the specified address. The BASIC mierpieter will not touch this area. 



E>.ample: 



LIMIT S-HFFFF 
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St«t»mOTt 



LINE 



Function. Dtawi hne sEgmcrt cDnnccting ipecificd coordnius. 

Fomi»i LINE (XI, Yl) - (X2. yZ). cotur coJc 

where 

X = hon/onia] coorduialc m ihc range thru 255 
Y - vcrticiJ coordinate in the range thru 191 

Desciiptnn: This itilcincnt driwi the line tegmeai sianing rcon)(XI. Yl) and ending at (X2, 
Y2). 

If the Dhgin of the coordinate hai beta moved by the coordinatr to ^>pcar. (he 
botizoTital dulance u well ai the vertical ili%Iince of thcK iwo poinli muli not 
exceed ihe langc speciricd above. 



Additionri 
fundtoi) B: 



Eiample ; 



Drawi a reel angle. 

LINE<XI , Yl) - (X2. Y2), color code. B 

The above iiateni dtawt the rectangle having the line acgmeni connecting (X I , 
Yl) and(X2, Y2)ai itj diagonal What ii more, you can pamt uiiide ihc Kclangle 
by saying 

UNE(XI,YI) (X2,Y2). color code. BF 

whne Che coloi a specined by the cokii code. 

If you onut (he itaiting coordinate (X I . Y I ), the draw will begin Tram the liteit 
point utilized not only by the IJNE siaiemeni. but the BLILE. PSET oi the 
PRESET statemertu 



10 SCREEN 2.1-;CLS 

2B LINE(5B,5O>-(i50.5a) ,1 

3B LINE- (50. 150) ,B 

lO SCREEN 2,2:CLS 

20 FOR C=B TO 15 

~8 LINE(aB,S0! - ( 160, IBS) ,C,e 

40 FOR ft=B TO 7-B0;NEXT A 

5S NEXT C 

60 BO TO 60 



See Abo: COLOR 



SutwiMnt 



LPRINT 



Function. Output to the printer vajuei or characlet iinngs 



Format 



LPRINT A or Aj 

LPRINT ASB.C 

LPRINT "X" 
L'A 



Numertt variable or character tinng variable 

Character filing 

The "PRINT" can be repliced wiih "V 



Dejcrtption: Thu iCitement it the same with the PRINT staiemeni except the leuilr ii writien 
to (he printer. 
"LPRJNT" can be abbievialed lo "L''". 



Note 



StealJo 



Refer to the mmual Tor yoiu printer before using this ttaiemenl iince there can 
be a variety uf ipeciricaiioni among various piuilen or from interfaiie to inter- 
face 



PRINT 



St«tafn«nt 



MAG 



(miBnitude) 



Function- Sets sue and magnitude of sprites 

Foniiai MAG numerii; value 

Descnption Vanous sizes of spiiiescan be sei by supplying lo the MAG staiemeni miegers 
in the range ihni 3 

MAG 0: Draws 8 by S-dots' Tigurei in the frame of S by 8 picture elements 

MAC I Draws 16 by 16 dols" figures in Ihe frame of 16 by 16 picture 

elements by combining 4 patterns of 8 by 8 picture elemenli 
(S*0-S#3. S»f-S#8. - ,.S«53-S#25S) 

14 , 



MAC 2 Double the size of the piclures drawn by MAG 0. 8 by B dots' 

Hguret vnll be drawn in the frame of 16 by 16 picture elements. I 
dot becoming equtvalent ta 2 by 2 picliirc elemenis. 

MAC .1 Double Ihe size of figures drawin by MAG I 16 by 16'dois' figures 

will be drawn in the frame of 32 by 32 picture elements by com- 
bining 4 pallerns r^f 16 by 16 picture elements. 2 by 2 picture 
element bee omts equivalent lo I dot, 

Combining A paiiemi to create a figure as in ihe cases MAG 1 and MAC 3 above 
can be done with a single SPRITE slalemenl Since sprite names arc synonyms 
for pattern numbers (S#nuinberl, you can, for example, lei one pattern number 
among the group SjW}-5#3 be a sprite name lo automatically consimci ihs 
S#0-S#3 pattern. 

Note In cases MAC I and MAG 3 above, the poisible combinations of patterns ate not 

aibilrary 

If you make some mislakc in numbering the pilteins. the resulting figures will 
be diffeiem from what you enpect. 



Figurt 

The MAC suiement ii uicd to specify the scale of %ures drawn by the PATTERM ilaument- 

In this figuie, one picture element corresponds to one bit. 



MAGO 



MAG 2 



Example : 



Sbil 



EES 



1 hil = 1 dot 



]— IS hit — I 



tto 



fli 



S2 



«3 



Four of MAG are combined to 
draw the pattern. 



\- BdouH 










B dou s 


0-^ 


1 




1 




1 





2 bii 1 2 bit IB dMmtd ai I dot. 




PBttorns are drawn by combining 
four Mag Z 



10 REM MftG -?, PATTERN TEST 

20 SCREEN 2,2!CLS 

30 PATTERN 5*tO."0l0r-07OFlF3F7FFF" 
40 PATTERN Stl , "FFBBFFOBFFQBFFiaB" 
50 PATTERN B»2, "BOC0E0F0F8FCFEFF" 
60 PATTERN 5tt3, ■'AAAAfiAAAAAAAAOfiA" 
70 X = r.2: Y^'?e: XX = 
BB PRINTCHR*tl7) 
90 NAG n 

100 FOR T=0 TO 7 

IIB BLINEtB. 161 -(255,24) , ,BF 

120 CURSOR B.B: PRINT" MAB ;^ PATTERN T 
EST" 

13B CURSOR 0,lfa:PRINT" MAG" i M; " : PATTE 
RN S»-'; :CURS0R2B4, 16:PRINT T 

140 SPRITE 2, (X. YJ ,T,T + 1 

150 SF'RITE 0, (X + 32,Y) ,T,T-t-3 

160 SPRITE 3. iX+64, Y) .T,T+5 

170 SPRITE 5, (X+9&, V) ,T,T+7 

ISO FDR lij=0 TO 130 

190 SPRITE 1 , (160,W) ,T, 14 

::00 NEXT W 

210 FOR WT=0 TQ iaa:NEXT WT 

220 NEXT T 

230 t1=M+l!lF ri=4 THEN M=0!T = a 

240 GOTO 90 



Statament 



ON GOSUB 



Formal 



lumps lo onE of the subiouijie! specified by the Ims numbers ai:ciirdmg lo [h<^ 
vanable 

ON vanabie GDSUB line number, line number, line number 



Deicnpiion: Jumps to one of ihe tubroutinci in<li4:aEcd by Ihe ime numbers tpeciried arrer 
GOTO accoiding lo the value uf (he variable pieviuusly migned by a numciii: 
expreiiion oi by an INPUT iralement. 

The vilut 15 an integer and must b* taken in the rarge I thru the number of Ime 
numbers you specify after GOTO, each integer corresponding to each line 
njmbei. 
The RETURN siaiement is used on leium ftom subiouUiws. 



Eiample: 



IQ f:LS 

20 CURSOR lia,7.;PRINT"menu" 
30 CURSOR 1B,A:PRINT"1. . -drin 
40 CURSOR lia,S:PRlNT"r. . .focjd 
50 CURSOR ie,10:PRII\(T"3. . .des 
tj0 CURSOR IB, 1 7.; INPUT'-ordsr""' 
70 C3N A G05UB 100.200,300 
S0 130TD iO 

1U0 CURSOR 10. 16:PRINT'* 
110 CURSOR 10, l6:PRINT"ccif fee 
120 RETURN 

::0O CURSOR i0,ii>:PRiNr" 

210 CURSOR 10, li>:PRINT"cfll e. . 
C20 RETURN 
r-00 CURSOR 
310 CURSOR 
320 RETURN 



k" 



ser t ' 



10, 16:PRINT" 

to, 16! PRINT '■mel on. 



#250' 



StatMTtent 



ON GOTO 



Function: lumps to one of ihe specified linei according to the variable 

Formal ON variable GOTO line number, line number, Ime number 

Deuiiption: Jumps to one of the hnei specintd after GOTO according to Ihe value ol the 
variable pieviouily aiiigned by a numeric exptewion in by an INPUT iiaiement. 
The value is an inleger and mui! be taken in (he range I ihiu Ihe number of line 
numbers you specify after GOTO, each integer corresponding lo each line num- 
ber 

If ihe value got greater than ihe number of line numbers, ihe line immediately 
rollowing Ihis staiement would be executed. 



Eiampk : 



10 INPUr"arder";A 

20 ON A GOTO 100,200,300 

30 GOTO 10 

100 PRINT "cof +ee"iGDrD ID 

200 PRINT "cake": GOTO 10 

300 PRINT "milk":GDTD 10 

RU^J 

order ""1 
cD-f -fee 
carder ?2 
cake 
order 77 
mi U 
order "" 
Breal t n '.0 



Statafnant 



PAINT 



Function. PunUin^de or outtide areas foimed by bits 1. 

Formal: PAINT (X, Y), color code 

Description: Use this siaiemeni to paint Inside or outside those areas drawn by the LINE or 
ifie CIRCLE slalement. But nole thai even a one-bil hole in such regions will 
cause the color wooie out from the hole 
Make sure lines have no break points on them. 

Use the RESET key lo inlenupl or slop the staiement since the painting cannol 
be interrupted by the BREAK key. 



Ex*inpl«: 



10 SCREEN 2,2:CLS 

20 FOR 1=0 TO 255 STEP 16 

30 LINE!! .0)-a , 191> :NEXT I 

40 FOR 1=0 TO 191 STEP 16 

50 LINE(0. 11-1255,1 ) :NEXT 1 

60 C=RND[ 1 ) ♦16 

70 X^RHDi 1)*256: Y=RND(l)«l92 

BO PAINT(X,Y) ,C 

9Q GOTO 60 



Statemsnt 



PATTERN 



Function Seti i^irKter orspnle pattern. 

Formal. To Kt a character pattern 

PATTERN C# character code, numeric character tiring where charaeier code 
mun be in the range JZ thru 23S lo set a spnte paiiem. 
PATTERN S# sprit* name, numeric character ilring 

Where sprite name is an integei in the range thru 2SS which can also be 
supplied as a hexadecimal number 

Description. In both or Ihe above formats, the numeric character string musi be supplied ai a 
hcxadcnmal number. 
The format for character patlems differs from that of ipril* patterns: 

Chaiader pattern {characters and symbols ihil can be input from the keyboard). 

Tlie pattern is canitructed nul of the S-by-S dots' square (kc figure below) 

In this frame, the bottom row and Ihe rightmosl column are left blank so thai 

characters do not loudi each other vertically and horizonially . 

Elesides, (he rightmost two columns are ignored for character pattemi 

So only the (int 6 columns and Ihe flnt 7 rows in Ihe frame are utilized for 

character patterns. 



StitMnwtt 



OUT 



Function Outputs data lo specifred output port. 

Format OUT output port number, data 

Description Output port number are prcdclermined by Ihe system for outpulling data lo 
external devices. 



Example: 



10 SOUND 1 ,262.0 

20 SOUND 2,294.0 

30 SOUND 2,330,0 

40 FOR fi=0 TD IZ STEP .5 

5171 OUT ?,H7F ,^H90+A:REM 

50 OUT ^H7F,!,-HB0*A: REM ti.irn o* tone 

70 OUT ?.H7F.?'HD0+A:REM 

30 NEXl A 

90 GOTO 40 



Hexadecimal rBprnantation 





Lrfl 






Right 










































































































































1 















Binary rapresantalion 

Left 
t 1 1 
1000 

toot 

10 10 
1100 
100 
111 
000 



ShadowBd iquare ' bit 1 Stank square - bit 



Right 


Laft 


Right 


DOOO 


7 





1000 


a 


B 


1 OOQ 


9 


B 


1000 


A 


B 


1000 


C 


e 


1000 


3 


e 


0000 


7 





0000 









PATTERN CI92 , * 7 8 8 9 8 A8 C 8 8 8 7 ' | CR 1 

Now tVP* 

92 in the C#92 ^ove corresponds to the chvacter "V" the ascii code of which 

1192 

Now press the "V" key, and you will see a "0' appear on the icreen. 

This means the pallem corresponding to the aicii code 92 has jull been replaced 

by the one you mput with the PATTERN statement. 

Since patlems defined in this *jy remain unchanged until you pov.tr'Off the 

computer or re-boot the system, you must be careful not to meddle the ordinary 

keys wiih yout patterns 

If you do thai, lalkmg to your compuler such as in pulling programs will become 

much confusing 

Sprite pattern (used only on the graphics window) 

Like character pjtiems, spnie patlems are constructed out of 8-by-8 dots' 

iquue. But unlike them, you can uiie the entile squve for ihc sprite patterns. 
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Left 




flight 






















OOQO 
0000 
0000 
□ 000 
000 1 
DO 1 t 
Dill 
1111 



































































































































0001 

00 t 1 
111 

1111 
1111 
1111 
1111 
1111 



PATTERN SIO. "OlOSOJOf 1F3F7FFF * 

Note: The PATTERN siaiemeni uses di^etent fomiafs for characifr pjiWms and 

rortpriicpaitems. 

C# 

s# 



See Also: 



foi chancier pjiiemj 
roi spriie pa items 

SPRITE. MAG 



Dangnlng ■ panarn 

Gel iiheel ofenph seclion paper and draw ui S-by-6 square on il. 

Now shadow appropriate tquucs in the frame lo realm your unige of the pattern you 

want. 

Write Kquencoof O'l and I'l bcnde each mw in the frame following the rule. 

1 thadowed K|uaic cuiresponds lo I 

i blank squaR coireiponds to 

In Ihh way you get S rowt of btniry numben, each binaiy number ctMreiponding to each 

TOW in the frame. 

Now divide eKh binaiy number in two from the c«ntet to e'i two binary numbers having 

4placei. 

Ynu have now 3 rcws of 2 binary numbers 

Translate itiem inlo hexadecimal using ihe convcrtioo lable given below, 

Foi eumple, the low 



becomes 



1 1 10 



the left half of which is? in hexadecimal and the righi half OyeildLng"70". 

Supply the hexadecimal number thus got to ihe PATTEIW slitemenl and you will lee. 

by prcKing an ippropnaie key, your pal rem displayed on thescnen. 

Uac 8 by 6 square fur giiphici paitcriu, and 8 by 6 sequare for character patlenu. 



Conwartlon Tri>l« 






lOdacimal 


2 binary 


Iflhaxadaclmal 


D 


000 





1 


000 1 


1 


2 


10 Shift 


2 


3 


0011 


3 


3 


1 00 


4 


S 


10 1 


S 


6 


0110 


s 


7 


01 Tl 


7 


3 


1000 


a 


9 


1001 


9 


10 Shift 


10 10 


A 


tl 


mil 


B 


12 


1100 


C 


13 


110 1 





14 


1110 


E 


IS 


1111 


F 


M 


1 DOOO 


10 Shift 



10 PftTTERN C#-ia,""5O484S4S4S4B3QQ0' 
20 PftTTERN C«';9,"2O602O2a201'07Oao- 
3B PATTERN C4t50, " 7BSSBB1 02040F800' 

40 A»(0i="2aAa7a2070«a200a" 

50 AS I 1 ) -"000000000001300)00" 

60 ft«(2>=AS.( I ) 

70 CLS 

80 FDR 6=9 ID 3 STEP -3 

90 Kl=19-B*2: X2=19+B*2 

100 Yl=l 1 -B: V2=ll+B 

110 C=0:FDR L=X1 TO X2 

120 Y=V1: X=L:eOSUB 260 

130 Y = Y2! ;( = X2-L + Xl:GaSU& 2t0 

Mia C=C+l:NEXT L 

150 C=a:FOR L=Y1 TO V2 

Ji.0 j; = XI: Y=V2-L+Yl:G0SUB 260 

17a X=X2: y=L:BOSUB ZfaB 

IB0 C=C»]:NEXT L 

190 NEXT B 

200 f-Oh K =0 TO 3!C=0:FDR L=0 TO 3 

210 PATTERN C«4B,6* (CM0D3) 

220 PftTTERN C«49,ft» KC+2»MDD3) 



230 PATTEFIN C1I50, A* < (C + 1 ) M0D3) 

240 C=C*l:NexT L,k 

250 GOTO 200 

2fa0 VPOfE ^H3[;00+X + Y»4O,CMOl53 + 48 

270 RETURN 



Stalanwnt 



PSET 



Function Pun dol on the q>ccir)ed coordinate 

Format PSET (X, Y), color code 

De criplion The stalemeni puts dol (a pixel) on the coordinate (X, Y) on the screen. 

If you omit color code, the color lued by a previous statement will be used. 



Eiampte: 



10 511 REE N 



?:CLS 



20 X=0: Y^^SiE^l 

30 F*SET t X , Y ) , e 

40 

50 

60 

70 



X=X»l! Y=Y+E 
IF Y=12a THEN E=-l 
IF Y=B5 THEN E=l 
IF X=250 THEN END 



See Also: 



ao GOTO 30 



PRESET. COLOR 



SUMmsnt 



READ 



Funciioti Reads daia specified by a DATA sialcmeni 



Pormal 



HEAD variable name ci array name 
READ A ojREAD A. B Ci 



Description- This statemeni musi be paired with a DATA siaiemeni. 

The READ sisiemeni leids ihe daia supplied to a DATA itaiement placed 
anywhere in the program 

The variables (o a READ slaiement can cither be numeric oi string, but if the 
type of a daium to be read differs fiom thai implied by Ihe variable, the mis- 
match error will occur 
The READ stJlemenl can take a multiple number of argumenli as m 

READA.AS. B,Bi 

but ihe number of argumenit in the siatcment must agree with the number of 
data m ihe corresponding DATA siatenient. 



READ A. AS, B, BS 

I M 1 

DATA [0. apple. S. OTUige 



types of variables 



Eiample: 



If Ihe number of arguments to a READ stalemeni exceeds ihal of the data in Ihe 
corresponding DATA siatemeni. an error will occur. If, on the contrary. Ihe 
number of data m a DATA statement exceeds that of arguments m the corre- 
sponding READ statement, the temaining daia will either be ignored or read by 
the next READ stalemeni. 

In case there are more Ihan one DATA statemeni in a program, the READ stale- 
meni IS used to lead them all. 

LIST 

10 READ A,B,C,D 
20 PRINT A+B*C*D 
100 DATA I ,2,3,4 

RUN 
10 

Ready 



See also 



DATA. RESTORE 



Com mend 



REM 



(rinwrha) 



Function: Marks comment 

Form»i. REM 

Description Use this sialemeni to insert remnrkB in your program. 

The BASIC mterpieiet will ignore Ihe lines begintung with REM, 



Eiample : 



10 f^M:.,;:, CALCULATOR .;«)-, 

20 CLS 

30 PRINT 2+3 
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Statement 



RESTORE 



Funciion Specifiei a DATA sraiemtni to be read by the next READ statemeni 

Formal: RESTORE line number 

Dcscnption In a progiam with more Oun one DATA italcmcnl this slatcmenl ii used to 
declare thsi the DATA siaiemeni associated with the given line numbei is to be 
read next. 

If you omit line number, the next instance of a READ siatement wiU reid from 
the Tirst DATA siaiement in Ihe piogtam 

To read ihe sanie data repeatedly, place ilii; sialemeni befure the RF.AD state- 
ment. 

If yoa supply "line number," the DATA siaiemeni speciTiiid hy the number will 
be read independent of ill locaiion in the pmgrain. 



Example : 



LIST 

10 READ A,B,C,D 

20 DATA 1 .1\Z.,<1 

70 RESTORE 

40 PEAr F 

50 PRINT fl+E(i-Ct-D*E 

RUN 
11 
Ready 



Statsmsnt 



SCREEN 



Function: Conltoli the active and the visual windows 
Format. SCREEN active window, visual window 

Des<;nption: 5C-30O0 has two independent windows: 

1 Tent window for piogram input 

2 Graphics window for graphics display 

The Basic mierpreier iniiiajirei both of ihe window; to I : 

SCREEN 1 , I 
You must execute, prior to any giaphics commands 

SCREEN 2, 2 
The sitive window is utilized by the PRINT siaiemeni and so on. while the 
visual window IS foi graphics ouipui. 
The CIS statement erases the active window implied by the SCREEN slalement. 



Eismple r 



SCREEN I'.riCLS 
Ready 



Statammt 



SOUND 



Function : Generates sounds having given frequencies 

Formit SOUND channel, frequency, volume 

Usage SOUND 1, 1000. 15 [CRI 

Ready 

Dtscnpiion. ( Channel ) 

Each channel corresponds to a certain fixed tune. 

By mu.ing the first three channels, you can play a irio. 



Channel 


Function 





Turn off the sound 


1 


Geneiaie ordinary notes 


2 


Generate ordinary notes 


3 


Generate ordinary notes control frequency when the channel 
specified 11 4 or 5 


d 


Generate while noises 


5 


Cencraie synchronized noises 



t Frequency ) 

Specify desired frequency if the channel selecled ii 1 , 2 or 3. 

If Ihe selected channel is a or 5, specify one of the integer among thru 3 

according lo the following description: 

thru 2 Each corresponds to a predetermined frequency 
3, Frequency is controlled by the channel 3 



< Volume ) 

0: Switch off the sound 
1: Minimum volume 
t 

15. Maximum volume 
With this staiemerX you can produce amusing sound cffecis to your gimes or 
compose and produce melodies. See the followuig table. 
Eiampl« , LIST 

10 RESTORE BD 

20 READ D 

"O IF 0=0 THEN SOUNDa:END 

40 50CMD 1,0,15 

50 StR^IO 2,D»2. 1 1 

SO SOUND 3.0*3,9 

70 GOTO 20 

30 DATA 370,370, r'JZ 

Bl DATA 443.440.392 

az DATA 370,330,294 

33 DATA 294,330,374 

S4 DATA 370,330,330 

35 DATA 370,370,392 

96 DATA 440,440,392 

37 DATA 370,330,294 

as DATA 294,330.370 

39 DATA 330,291,294,0 



Thii program mftket use of lynchroniud noises. 

The channel 3 controU frequency while the channel S c on itols volume. 

LIST 

10 FOR !=1500 TO 3000 STEP IB 

20 SOUND 3.1,0 

30 SOUND 5.3, 15-OBS(I/I0B-2Q) 

40 NEXT I 

50 SOUNDO 
ORGAN 
LIST 

10 REM dor em 1 

20 CLS 

30 PRINT" «la «do re 



»*3, so Id 



Mdo re 



@ [ 



40 PRINT' U R T U 1 D 

50 PRINT 

60 PRINT" ASDFl^HJt-L;: ]" 

70 PRINT" la ti do --e mi ta so la ti do re mi 



B0 Z«=INt-:;EY* 
90 IF 2»="0" 
lOO IF Z»="W' 
110 IF Z»="S' 
120 IF Zt="D' 
130 IF 2«="R 
140 IF Z»="F'' 
150 IF Zt="T" 
160 IF Zt-"G" 
170 IF Z»='-H-' 
180 IF Z»=-U' 
190 IF Z*="J-' 
200 IF Z*="I-' 
210 IF Z»="K" 
220 IF Z»=:-'D-' 
230 IF Z»="L" 
240 IF Z*="i' 

250 IF z*=-a' 

260 IF Z«="!" 
270 IF Z$-'-C' 
2BO IF Z«="]' 
290 IF Z«=-" 
30O GOTO 60 



THEN SOUNDl, 
THEN SttJNDl 
THEN SOUNDl 
■ THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SlXJNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SOUNDl 
THEN SCHJNDl 
THEN SOUNDO 



220, 15 

,233,15 
,247,15 
.262, 15 
,277,15 
,294, 15 
,311,15 
,330,15 
.349,15 
,370,15 
,392,15 
,415,15 
,4 40, 15 
,466,15 
,494,15 
,523,15 
,554,15 
,5B7,15 
,622,15 
,659, 15 



Frwmvncy TiU* 



Notei 


fl 


12 


t3 


f4 


f5 


C 


(to 


1 




131 


262 


523 


1047 


C. D* 








13S 


277 


554 


1109 


D 


re 


9 




147 


2M 


587 


1175 


D*. E* 








156 


311 


622 


1245 


E 


mi 


a 




1« 


330 


659 


1319 


F 


fa 


b 




ITS 


348 


S9e 


1397 


F*. Qft 








Tffi 


370 


740 


1480 


G 


so 


c 




196 


393 


734 


1B68 


G», A» 








20B 


415 


831 


lesi 


A 


la 


d 


110 


220 


440 


880 


1760 


A#. B* 






117 


233 


466 


932 




B 


SI 


■ 


123 


247 


494 


9B8 
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StBtsm«n1 



SPRITE 



Function: Movei iprite pattcreii on the scmn. 

Foimit: SPRITE sprite window, (X, Y), iprite nime. coloi code. 



Description 



Now I: 



This 5I»tetr*nt is used to mov» figurts constmcied by the PATTERN stalemcnl 

(o the iptcifwd coordinaie on th« Kietn to const met a sprite psiicrn. 

No re-definilion of piliems is needed. 

Tlie aifiumenis to the statement art as follows: 

Sprite window 

An integer in [he range- thru 32 each coireiponding to one ipntt window. 

A window with a lowei Id number a placed in front of a window with a ht^er 

id numbei. 



phit screen 




TV screen 



Spnte name: 

This IS the number you supplied to the PATTERN slalemeni 

A iprjif name can be used on more than one spnie windows. 

The number of ipnle pilterni can be up to 56 and 32 of them can be simuhine- 

oiujy displayed onto the screen. 

Color code 

OiM q>riie has one color. 

Coordinate . 

If you move iptitei nghiwird with the horiioniaJ range exceedmi 2SS, they will 

reappeai from the left border of the screen, and thii is the intended result. 

Remind this fact when moving figures horizontally 

In case a ipme moves leftward beyond the left margin of the screen, the spnie 

wmdow IS shifted lo left hy the amount of 32 pixels and the sprite is entirely 

erased from the screen 

In this case you arc recommended to set a left margin in your coordinate since 

continuing the mu« will cause the "Parameter enor". 

32 pixels 



' l9?DiKelt 



Note: The dotted line ir>di(»in the sprite 
w-ndow shitted by the EC (E«fly 
Clock) bit. 



The origin of the 8-by-8 frame regarded as a coordinate for character patterns 
is on the uppermost, extreme Icfl, which is also the ca» for sprite windows 




255pii(eli 



.255 



^ 



n 



Note 2: Although each sprite window can have one color, you can combine from 2 to 4 

windows to create a, uy, 4-colored character 

In case you must put multiple number of sprite windows on a same horizontal 
line, plan them carefully reminding the note 1 above. 

Example : i (g n= i 

2ia SCREEN 2,2: CLS 

30 MOG M:C = RND( 1 ) *1T-+1 

40 CURSOR 10.1B:PRINT CHR* (17 J : "MflG" : M 

5B FOR Y=0 TO 191 STEF' 4 

60 PATTERN S«0."Oai93F3L:iC0D0F7B" 
70 PATTERN S«l , '■0C0FBF0F07OT.1BH7" 

80 PATTERN S*L*. ■■0at;CFE9ES'CDB78EC" 

90 PATTERM S»3, - 1 AFAFBFaEC7C7.800" 
100 Yl=y:BQSUB 190 

IIB PATTERN S«0, "O0193Fr-ClL0D0FlB" 
120 PATTERN S#] .■■2C2FOF071B1F0E0O" 
130 PATTERN S1*2, '■00GCFE9E9CDa78EF " 
140 PATTERN S«7-, " iaF8FBF8F0606L70" 
150 V1=V+2:GDSUB 190 
160 NEXr Y 

n Z THEN M=l 



170 M=M+2: IF 

ISa GOTO 20 

190 SPRITE a 

200 SPRITE 

210 RETURN 



, (120.Y1 ) ,0,C 
, ( 120 . Y 1 + 1 1 . , E 



See Also; 



PATTERN. HAG 



Staiemarii 



STOP 



Function Interrupt execunon of a program for a while 

Format STOP 

Descnpiion. Insert this slatement into a program thai behaves other than you expect. It will 
lemporanly suspend exocufion of the program righi where ii wzsmsened. 
By inserting this stalemeni to various part of the progiam. you can keep an eye 
on the mtermediite lesults step by step, ind thus tar Tmd out whu's wiong 
wiih the program. 
For example, typing 

PRINT -varlible name" ^ 

will show you the iniemiediaie value of the variable indicated by "^anable 

name " 

If you inieinjpt a piogram wilh this slatemenl, the message 

Break in "line number" 

wilt appear on the screen 

The CONT siaiement will resume execution of the program right from imme^ 

dialely after Ihe STOP statement if you didn't modify it 



Example : 



LIST 

10 FOR 1=1 TO 9 
20 FDR J=l TO 9 
30 PRINT I*J; 
40 NEXT JrPRINT 
50 STOP 
60 NEXT 1 

I. -UN 

I 2 7-456789 
Break in 50 
PRINT I, J 

1 10 
Readv 

CQNT 

2 4 6 8 10 12 14 lb la 
Br&at in 50 



The SPRITE slalemeni has the mce chaiactenttic of being able to put Tigures m 
front of or on the backof others by drawing them on different sprite windows. 
A sense of perspective can easily be introduced into your graphics pictures by 
utilizuig this charac tens lies inielligently. 

Although you can display up lo 32 sprite windowt smultaneously, only up to 4 
windows can be placed on Ihe same horizontal line (rastor) and the Sth wmdow. 
if supplied, becomes invisible blocked by the former windows. But since 
windows are blocked not by sprites, but by dots, if you rrnive the 5ih window 
vertically, the window will begin to be blocked and reappear dot-wise on the 
screen. 



StstBrnsnt 



VERIFYM 



Function. Compaies machine language programs saved on casselie with the program in 
memory 

Formal' VEHIFYM 'Tilename", verify start address 

Description This statement cconpares the machine language program on casseiie indicated by 
"niename" and the program in memory The message "Verify end" will be 
displayed if no difference has been deiecied between the twoprogiims. If you 
specify the venfy starl atfdresj. Ihe comparison wiU start from thai addrcu. If 
noi. It will Starr from the address as previously indicated by C5AVEM II 
"lilename" is omilied, comparison wdl be done between ihe program m rnemory 
and the first machine language program found on the cassette 
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Note: Filenime musi be iht one you chruiened on "vr. 

Eiample : 

VERIFYH 

»■ 'Jer ifving start 

Found DBJ: HEX DATA 

» Veri tying end 



Stitsnwnt 



VPOKE 



Character String Function: 



ASC 



(ucij) 



Function' Writes dita to ihe VRAM (Video RAM) 

Fonnar VPOKE address, daia 

Description: By writing dau into iht VRAM, you can draw chuaciers or figures on ihc icretn. 
The ome wiih the lexi window 



Eianpie: 



10 FOF* fi=.VH3[:iaO TO &H:.rBF 
20 VPOKE A, 65 
30 NEXT fi 



10 &=S-HlS00+32«r8 

20 FDP fl=B TO B*^ 

^t^ VPOKE rt,255 

40 NEliiT f) 

■SB FGR C=B TO 100:NEXT 

60 FDR A=P TO B*T 

70 VPOKE H.O 

80 NEXT ft 

'?0 FOR C=0 TO 1B0:NEXT 

100 GOTO 20 



IB FOR ^=157-60 TD 1 S7O0 

20 CURSOR IB,0:F-RINT"VRAM ADDRESS"V 

40 VP = '.'FEE1 tV) 

50 VPOKE V+X+y»40.Vl 

60 X^XtlilF X=3B THEN X=a;V-y*l 

-'0 NEXI V 



Function: Convttischjracitrs into corresponding numbeiifascu codes) 

Format: ASC (character constani or character variablel 

Only the fiiir chaiactcr (if any siring consiati' more ihan ime chiiaclei long wiU 
be converted 

Descnplion, Compuiets don't undeisiand tliaiaciers and symboli as the way human beings 
do. They only understand niimbet! 

The way ihcy undersiand tlmacters and symbols, rhey have a set of numbers 
ranging from 3^ Ihni 255 wilhin them, each number cone spending lo each 
characler and symbol on youi keyboard 

In Ihis way thty can dislinguish the character A (which is 65 from Ihe com- 
puter's pomi of vLewl from Ihc charaeier B (66) 
Even though you supply a character siring more than one character long, as in 

7 ASC ("BA") 

this function only oulpuis the number corre^onding lo the first character of 
[he siring and ignores ihe rest. 



Example. 



Arithm«tic FurKtkMi 



ABS 



(■tHoluta) 



Function Giws the atnolute value for Ihe uithmelic expression X 
Formal ABS(X) 

Dncc^tion The absolute value of a value is the same with Ihe value if the value is positive. 
and Is equal lo the negative of the value if the value is rwgnive. 

£iample . 

PRINT ABS(-5) 
Ready 



PRINT ABS(3*(-fa) J 

13 
RSiSdv 



Arithmstic Function 



ACS 



<vc -cosine) 



Function: Gives B m COS (S) inverse cosuie function 

Formal. ACS(X) X must be in the range -I thm 1 

Example : 



10 FOR S=-] TO 


STEP . 


20 K^ACS'B) 




30 i'=DEO(X) 




40 PRINT X,¥ 




50 NEXT 5 




RU:v 




:-. 1415''2i536 


IBO 


'^'.BSifl7.951024 


120 


1 . 570 /"^t 5:^:68 


^0 


1.Q471975S12 


60 









Sort name? m alphabeiical order according lo ihe first character of Ihe names 
On RUN, displays corresponding ascu codes 10 llie input ettaraciets and symbols. 

PiUNTASCC'A") [CR] 

65 - the ascu code for 'A' is &5 

PRINT ASC("'") [CR] 

33 -the ascu code for''" is 33 



10 INPUT A« 
20 C=ASCiA*> 
30 PRINT O 
40 QDTG 10 



See also: (CHRS) 



SORT 

10 INPUT "number o* DA1A";N 

20 DIM fl«(N) 

3B FOR 1=1 TD N:ftEAD A«>1):NEXT I 

40 D=N 

50 D=INT (D/2) 

60 IF D- I fHEN 1 80 

70 DD=N-D 

B0 FOR i =1 TO DD 

100 IF ASCIAS'JM =flSC(A*(J+Dl ) THEN 160 

1 10 N«=A« (J) 

I20 A* 'J) =A»( J *D> 

130 A«<J»D)=N* 

140 J=J-D 

150 IF J =1 THEN 100 

16,0 NEXT J- 

170 GOTU 50 

1LI0 FOR 1 = 1 ro N:PRINT 1,A*(1):NEXT I 

200 DATA SUN, MERCURV, VENUS, EARS 

210 DATA MDON, MARS. J UP ITER, SATURN 

220 DATA URANUS, NEPTUNE, PLUTO 

238 DATA ASTEROID. MI LH'Y l«AY,QALAXl' 



RUN 






number □ 


f DATA14 




1 




ASTEROID 


2 




EARS 


3 




GALAXY 


4 




JUPITER 






MARS 


6 




MOON 


7 




MILKY WAY 


a 




MERCURV 


9 




NEPTUNE 


10 




PLUTO 


ii 




SUN 


12 




SATURN 


13 




URfiNU5 


14 




VEHUS 


Reacd/ 







Arithmatic Function 



ASN 



(arc- line) 



Function Gives 9 in SIN (9 

Formal 



inverse sme funcuijn 



ASN (X) X musi be in the lange -1 thru I 

The value of ASN (X) is In radian 
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Example - 



IQ FOP S=-l TD 


STEP .5 


ra x=ABNis> 




70 y=DEGCXl 




4K PRINT X,Y 




50 NEXT E 




RUN 




-1. 5707941 ^-ZSS 


-90 


-.53359B7756 


-3Q 








.52T.5987 756 


7-0 


].57PI7Vi.:2&S 


tJQ 


Re^Oy 





Arithmetic Function 



ATN 



{arc-tan (i«ni) 



FunciiQD. Givci [he inverse tangent inverst tangcm function 



Foimat" 



Example : 



ATN (X) 

Thii runciion reiuins vilues wiihjn Ihe range - -j thni -y 



lU )(=ATN(1) 
20 Y=DEGU1 
"•.0 PRIM <,■ 
RUN 
. 785393,1674 



ChBraciw String Function CHR$ 



(charBctvr Si 



FuncOon. Canvcrlsiuij codes mto corresponding charictcrs or conirai codes 

Formil. CMRS (arithmeliir exprtuion lo be conveiled) 

Acgumeni must be an integer in ihe range 3Z thru 25S 
FIcMting point numti«r« in liancaled lo inlegers 

Description: Each characiei and symbol in your computer has aisocjaied wirh it a code nutr- 
bei And ihii function is u>ed lo conveit a code number to il& coiiesponding 
character or symbol. 

Computers can perfomi numcnc comparison, or can son stiings in alphabelical 
order because they have a fixed set of code numberv 

See the Characlci Code Table in the ippcndu Chaiicieis and symbols are 
asiijned code numbers gieiier than oi equal to 32 
CHRS function can be used for getting control codes too 

Usage PRINT CHRS (65) 

A *- the axru code 65 coifwponds lo Ihe characler 'A' 

Example L^i's peak in the characters stored in your computer 

la FOR r\=zz TO 255 

20 PRINT CHR*(f1) J 
70 NEiiT M 



Rur4 

F&HI-Jt' LMriDP>::fPSTU'il-i:-;i'Zr[* 3 n abcd'S-i^yt'ii ji. 

■+-■■ ■JiLT_^" I ^Ji(^.3.iA^ACEeBeCMiJi ir II ioi 
■-'-;-:-^-"-.' ..-..-...■■J e-H.1.'.'S0 -/;-;• I .'I 



You tan see ihe chiiaciers and symbols on your keyboard displayed on the 
screen Those are the characters and symbols stored m your computer 
See the Chsraciei Code Table and verify ihaS Ihe code numbers on youi screen 
and on ihe table are the same. 



ArithitMtic Function 



COS 



(coiina) 



Function A tiigonomeiric function gives the cosine of the stithmetic expression X 

Formal COS (X) ihe argument X musi be in radian 

UMge: Let's find oul the coiinet of 0",30°.60'', W; 

Enample: 

]0 FOR X=0 TO 90 STEP 7a 
20 Accost RAD(X) ) 
7B PRINT X;TAB<10> ; A 
40 NEXT X 

m 



RUN 

a 


1 


38 

&a 

Ready 


.8i60254B379 
.500Q0aS)O0Ql 




Arithmetic Function 



DEG 



{degree) 



Function. Gives the equivalent angle in degree oi the amhmeiic expression X m ladian 

Forniat DEG(X) 

Descnption This function is the inverse of the RAD funclion and reiurns the equivalent 
angle in degree oF the expression Xdn radian) by muliiplying il by 180/pi. 



Eiample : 



PRINT DE:Gt0.26) 



14.996902677 
Rei-dy 



Arithmetic Functitm EXF 



{•xpcment) 



Function. Gives powen of e (the base for the natural logaiiLKm) 
Formal: EKPtXf 

Usage: Let's calculate e' , e' , and c' respectively. 



Example. 10 FOR 1 = 1 TD 7 

1'0 X=EXPflJ 

3B PRINT"EXFf: l! ") = '■; K 

40 NEXT 1 

RUN 

EXP! 1 »= 2.7182818284 

EXP! 2)= 7.7890560987 

eXPt 31= 20.08^536923 

Ready 



Gefwral Function 



FRE 



(free) 



Function; Givti the aroounl of free memory. 

Fonmal FRE 

Descriplion This function gives the amount of free area among the aica available to the 
BASIC 



Eiample ; 



PRINT FRE 

15000 
Ready 



Cherecter String Function HEX4 



{hex* S 



Function: Converts vilues of numenc exptessions into equivalent hexadecimal numeric 
character strings 

Forrnat HEXS (numetn variable oi expression) 

Descnption The range of the aigument to this function is from -32768 thni 32767, and the 
decimal fraclion, if any. is imntaied 

Computers handle numbers m henadecimal is well is in decimal mlo the 
equivaleni number in hexadecimal. 
To conuen a hexadecimal niimbei into equivalenl decimal number, type 

PRINT 4H ■'hexadecimal number" 

To distinguish between decimal and liexadecunal numbers, add "/H' at the head 

of any hexadecimal numbers. 

The hexadecunal number &H10 is equivalent to the decimal number 16. 



Usage 



Let's convert - 10, -i, 0. 5. 10, 15 inlncquivsient hexadecimal numenc charac- 
ter strings' 



ExBmpIp : 



Seralio: 



ly FOR S=-IO TO 15 STEP 

"O PR!NI S ;■' = ■'; X» 
10 NEtT S 
RUN 

-J0=FFF6 
-!:. = F F FB 
0=13 

15 = F 
ReacJv 

ASC 



Chsracnr String Function 



INKEVS 



(in k«v I » 



Function. Gives a chjricisi eniered from ihe Iteyboafd 

Foimit; INKEYS 

DescnpLiun. Gives Ihe chaiactei cuirespandin^ li> Ihe key being pushed 31 the lurie of eicecu- 
lion of thi» (unction. If no key is being puthed. ii gives the null firing. 
This funciion earuioi deicti ihe RESET. BREAK and ihe FUNC keys. 

* Null siring is the character string zero-chaiKlei long, ind is repiesenled 
« two contecutlve double quotes (" ^"). 



Uiage: 



Example : 



13 SS=INKEY« 

20 :F ii=-" THEN 10 
Za PRINT *»; 
ID GOTO 10 

The line 20 keeps watching whether a key is being pushed If no key it being 
pusJied. XS IS assigned the nuU iliLUg (the chaiaclei siring *Hh nothing m il) 
and nothing is displayed on the screen. 

The pTogtam ihus keeps looping belween the lines 10 and 20 (an infirute loop I 
If a key is pushed ai this lime, XS is aislgned the charactci coiiesponding lo the 
key and ihe line 30 displays il. To gel out of this inrinitc loop, type 

25 IF X*=-Z" THEN 130 
lOe PRINT "END":END 

Hit Ihe Z key to end this piogiom 

Op«ratton can be started by El El 

LIST 

10 X=I8: V=ll :CLS 

20 CURSOR <.Y:PRINT" "'A'' " 

:-0 A«=ir*;Ev» 

4B IF A5="" THEN 7,0 

■=.3 Ih f.*=uHN*fJ3i THEN i^t*i 

jQ IF ^t-LHR«(291 THEN »; = X 1 

.'B IK / L" THEN X-='0 

30 If V .33 THEN X=3-3 



General Function 



INP 



(inportt 



Funcuan Gives conienis of Ihe 1/0 aiea 



Format 



INPUddress) 



Dcsinplion This funciion gives datd in the specified I/O port In Ihe following example. Ihe 
data m The I/O p»ii BE IhCNa) is read ink> Ihe variable A at line 10 The lesull 
may vary actucding lo Ihe l Jiieni stale of the comptilei 

I/O poii numbeis are predeiermmed by llic syslem and must be m the range 
(AHOOthruAHFF) 

This Tunc lion is useful lo delect, fur example, Ihe cuirenl slate of the joyslick 
which IS an cxlcmal I/O device 



Example : 



10 FDR A=!-HE0 TD 4HE7 
20 PRINT Ai IhS»(fl) 
7,0 NEXT H 

RUN 

224 12B 

225 128 
22A 20B 

227 128 

228 

229 10 
27B 195 
2~1 2 

Ready 



GanarBl Function 



INPUTS 



linpuitkillgr) 



FuncUon: Reads a charai:ter string having the spccirted lenglh from a sequenlMl fik tndicil- 

by the file dejcriptot. 



Format 



Example : 



INPUTS 



10 OPEN"TEL NOTE" FOR INPUT AS (H 
20 At=INPUT»!20.*tl 1 
"0 FRiMT A^t 
40 CLOSE Hi 



Arithmetic Function 



INT 



(intooerl 



Funaion Trancates the decimal fraction of given aigumemsto ren*in the resulting integer. 

Format. INT(x) 

Descnplion: Use this function to set the greatest inuger not greater than a given value or Ihe 
value of an arithmetic expression. 
This function is useful for numeric truncation or lounding up 



Example : 



10 FOR N=l TU 2 STEP 0.1 

20 l = int;n->-u.5) 

30 PRINT N; '■ = ";L 
40 NEXT N 

RUN 
1^ 1 

1, 1= 1 

1.2= 1 

1.3= 1 

1.4= 1 

1.5= 2 

1 .6= 2 

1. 7= 2 

1.8= 2 

1.9= 2 

r= ? 



Chartctw Strinj Function 



LEFT$ 



(left 



Funcuon Gives a lubsiimg iif ihe given cliaiactei string having liie given number of length 

counting fiom the left 

FomiJt LEFTS (charactei suing, length! 

Description Gives a sjbsinng ol itic given chaiactei siring having the specified number of 
length counting fium ilie left. A space counts as one character. 



Usage 



Example ' 



Lei's stoie into MS the subsiring consisling uf the First fith chatacters of the 
chataciei siring stored in AS, and display ii omo ihe screen. 



la At-"cDf + t?e coci3a mill " 
20 M4=LEFT»iAt,f!) 
30 PRINT M» 



See also 



KUIJ 
cat fee 

RIGHTS 



L 



up to 6lh characters counting frrim the left 



Character Strinq Function 



LEN 



(ImgthI 



Function Gives the number of chaiscteis in the given thajaclii sinng 

Formal. LEN Icliaraiclei siimg) 

Dtscnption This function gives ihe number of characters in the given character slruig 
Special symbols and spaces couni as one within a iinng enclosed by " " 



Usage 



Lei's count Ihe numbei of characters m Ihe chaiactei string contained in At 
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H^xample : 



la A*="SEGfl PERSONAL COMPUTER' 
2a PRINT LENiAt) 
RUN 
22 

Note Itiil a space cuunled as one 



LIST 

10 ;:,%=■•****•* if' -o*" 

2E FDR 1=1 TO LENifi*» 

rO PPlrlT LEFT»rA»,I! 

■IQ fiEXT I 

RUN 

» 

»-* 

**» 

•■*■••# 

■ •*•*■•♦ 
«■**•■+■*♦• 

Ready 



Arithmetic Function 



LGT 



(log ten) 



Function: Civti logarithm to ihe base IQ (caminun lugaiillun} 

Format. LGT(X| 

Unge: Let's Tind out the common logariihmt uf 10. lOO^iiid 1000. 



ExuBpit 



10 N=l 

2B N=NH0 

.'0 X = LeT(Nl 

40 (■■RINT"LCT<";N: " ) = " ; X 

50 IF N 11300 THEN 20 

RUN 

IGT< 101= 1 

LGl ( 100)= 2 

I.Gl I 1B00I = 3 

Rbs d v 



Arithmetic Function 



LOG 



Oogl 



Funcuon Gives iogariihm to the base t {anuiai loganlhm) 

Fomial LOGlXl 

Eiample : 

10 FDR J^l TO 3 

20 X=LOG!J) 

lis PRINT "LOGi " ; J; '■ J =■■; X 

40 NEXT J 

RUN 

LDG( 1)= 2.6/4fe857.2E-H 

LOQ t 21= . 6931471 BBS? 

LOG( Zi= 1.0934=122386 

Ready 



Arithmetic Function 



LTW 



(log two) 



Function: Gives logaiithm to \he base 2 
Formal LTW(X) 

Uuge. S«e LOO. 



Example : 
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IE FOR 3=2 TO 10 STEP 2 

20 X^LTUiJ) 

T-G PRINT"LTU1 '■■; J: '■)=■■: X 

4E NEKT J 



PUN 

LTW i 2 1 = 1 

LTW I 4 ) = 2 

LTU; 6-)= 2.534=625007 

LTWv 31 = :: 

LJijfi 1Q>= T-,>21'f2B0949 
Rs53v 



Cheracter String FurKtion 



MID$ 



(mid Sj 



Function Gives a subslimg nf the givtn ctiaraciei siring 

Formal: MIDS(chsracist slrmg. m, n) 

This gives the jub^limg of iht chaiactcr suing slaiting !ton\ the mth charatlci 
andn-chatacteis lonii 

Deicnpiitin. ThJi funciion gives a subsirinj ai given number of lengil) taking from Ihe given 
chiracter string. A ip*ce counis as out character. 



Usage 



Let's gel the subsiimg 5 th -chiiacleis long starting from the Slh character uf 
the character string. 



10 at = -'cQf fee coc(3a milt 
23 nt = l1ID»(At.S.5) 
7.0 PRINT MS t I 



length 



RUN 

cocoa 

R(-ad¥ 



Stirimg Chirac ler 



Example' 



Length can be omiltcd as m MIDS (character string. m). in whichcase the result 
is the substring starting from Ihe mlh characiei up 1t> the end of the character 
siting 



PRINT MID».'"AeCDEFSHI",5) 

EFGHI 

Resdy 



LEFTS, RIGHTS 



Ganerat Function 



PEEK 



(peekl 



FunCTion: Gives coniem of menior>- at specined address. 

pDmut. PEEK (addreas) 

Descnption: Use this function to peek at the content of memocy at the desired address. 
TTie address must be in the tange ihm bSSi^i (4110 thru *HFf-FFl 
The value is relumed as one byie integer 



Exampti! ; 



10 FDR A=iHB00a TO S.H8FFF STEP 8 

20 PRINT RISHT«("0EB"tHEXS(A) ,4) ; 

20 FOR Ei = A TO A+7 

40 C=PEEK(B) 

50 PRINT ■■ "t RIGHT«("0"*HEX»(C) ,2) ; 

60 NEXT B:PRINT 

70 NEXT A 



Arithmstic Function 



[pi] 



Function Gives the r«io ot circumference of circle todiametei 

Formal Pi 

Dcsc:npiion: i M15926536 it assigned lu PI in your cuinpuier 

Eiample: PRINT PI 

3. 1^15926536 
Resdy 

LIST 

IE INPUT'Vadius " ; A 

20 S=A«A«PI 

30 PRINT "ares of circle ";S 

RUN 

radi us 5 

area of circle 7B, 5:^981 634 

Read/ 



Arithmetic Function 



RAD 



(radian) 



Funciion. Gives llie equiKilfnl anglr m radian of Ihe anthmeUc expression X in degiee 
Format RAD{X) 

Deicnption. This funcimr giv« Ihc equivajeni angle in radian of ihe expression X (m d=gr«) 
b> mjlliplying iLby pi/ieo 

Usage Ul's convert 0°, 1 5°, _10°. 45*. 60° into cquivaJeni angles in ladiw, 

Enample LIST 

10 FOR 1=0 TO 60 STEP 15 

20 >;=RAD(I) 

~.H PR1NT"RAD( ■■; I J ■•>=■'• X 

40 NEXT 1 

RUN 

RftDt 0>= 

RflD( I5)= .2fel799187B 

RAD( 30)= .52359B775fe 

RftDt 45J= .7853.9B1634 

ft«D ! fcO) 'i 1 .0471975512 

Rpadv 



Charactm- String FurKtion 



RIGHTS 



Iright II 



Funciion: Gives a subsinng of the gjven characier siring having Ihe given number of iengih 
counting from tha iighl 



Fonnal 



RIGHTS (characier itring. length) 



DcKfiptlon Tlus funcUon gt«s a subsHing of Ihe given character siring having Ihe specified 
number of length coundng from ihc lighl of the green itiuig, A space counii as 
one chancier 

Usage; Lei's sloic into MS ihe luhslring four-chariciers long (counling spaces) count- 

ing from the nghi i>) the character string stored m AS, and displaj' it onio the 
screen: 

Eumple 10 o» = "co+fee cocoa mill:" 

7.a M*=RIBHT»(fi«,4) 

30 PRINT nt 

RUN 

Up to 4 ih chsfacteit counting from the right 



See also. 



Ready 
LEFTS. MIDS 



Arithnnattc Furtction 



RNO 



(rarKJom) 



Function Genciitcs random numbers 

Format: RND(x) 

where 

X > : Generate random numbers successively 
X ■ 0; Inilializc ihc random number senes 
K < Permule ihe random numbej series 

DcKription; The random numbers sencraled wiifi ihij function »re frictions greater thin or 
equil to and less than 1 Multiply ihem by appropriate factor lo set random 
number; having desired decimal places. 

Exampit 1. Lfl's generate random numbers successively 
The random numbers have 1 1 decirnal places. 

To se-i a sequence of random numbers in the range I ihiu SOO, multiply the re- 
turned values b> 500 and add 1 lo them 

If you need random numbers in whole number, use the INT jtalemenl lo discard 
the decimal fraction 



10 KIJR N^l TO ^ 

20 R=RND ( 1 > 

T-a PRINT R 

40 NEXT N 

RUN 
. 74622984094 

.01SU71 I 0439 
.51872376941 
.8i5U6224i9 
. '56 3877341 ' 
Ready 



R = INT(RND(1)* SO0+ I) 

10 FDR N=0 TD 5 

20 R=INT (RND! 1 > ♦500+1 ^ 

30 PRINT R; :NEXT N 

RUN 
173 450 334 145 6 227 

Ready 



Example 2 Let's generate random numbers in the range thru S and add I lo (hem. 

10 FOR N=l TO b 

20 R=1NT<RND(-I ) •6+1) 

30 PRINT R: 

40 NEXT N 

RUN 
16 4 3 2 4 

Ready 
You jee we h«ve generated random numbers In the range 1 thru 6. You can usi 
this ai 1 falce dice 
See Also. INT 



Arithmatic Function 



SGN 



(tign) 



Funelion: Used to gel the sign of numeric exptesslont/values 



Format: 



Example 



SGN (X) relums - 1 if X is negative 

DifXiiO 
1 if X is positive 



LIST 

10 FQR I="2 TD 2 

20 N^SGNI I ) 

30 PRINT'SGNl"! Ij ■■) = '• sN 

40 NEXT I 

RUN 

SGN(-2>=-l 
SGN(-I )=-l 

SGN( 0)= a 
SGN ( 1 ) = 1 

5GN( 2>= 1 
Ready 



Arithmatk FurKtion 



SIN 



(line) 



Usage 



Funciion A ingonometiic function gives the sine of ihe arithmetic expression X 

Formal, SIN (X) the argument X musi be in radian 

L<!l'sfind out ihe sines of 0°, 30°. 60°. 90°. 

Example : 

10 rou rH=0 TD 90 STEP 30 
20 E=SlNiRAD(TH) > 
30 PRINT TH; TflBCia) jS 
40 NEKT TH 



RUN 





30 


a 

.5 


60 
90 


.86602540379 
1 



Character String Function 



SPC 



(ipscs) 



Function Gives specified number of consecutive spaces 

Formal. SPC (length) 

D«scnpiion This function must be used in one of Ihe PRINT. LPRI?^. or PRINT* stale- 
ments. 

The length must be an integer in the range thru SS. In case length as a value 
has a decimal fraction, the fraction will be truncated entirely 



Usage 



10 PRINT'A&E"sSPC( 10' ; "XVZ" 
RUN 

Abe — — - XYZ 

Ready 

10 spaces 

If some characlei^ happen to be m the range specified to SPC, these characters 
will be erased fiom the scieen. 

so TAB 
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AdthmetM: Function 



SQR 



(iquare root) 



pLiiicTion Gives Kjuaie roois of given vilvcs 

ForniM: SQR(X) 

Uiap: Let'icaltulaieVT and\/T 



Emmple ; 



IB lUFur "f-IfaURE "if* 

-ZZ PRlNT"50R.l.00I'';Aj ■' = ■'; X 

Ha LiOTD 10 

RUN 

f 1 qur(- Z 

•^iir-loot Z^ 1. .■-■X-0;i0felfl?6 

figure ij 

sqr . I oot ^'i= *. ^' '•bS)b''' /,'^' 

f 1 T Lif e 

Bred^l III IlI 



RUN 
1 3 



Rciuii of Che line niunbtred 20 



Resuli of the line numbered 30 



Example : 



Noie STRS (A) turned ilie given number into the equivalent numeric charactei 
itring. Adding chiricieri doein'i do wjy cilculation but putting ihera together. 



LIST 

7.0 IF A- 1000 THEN END 

40 D«=PlGHTt<" ■■+STR»(fi) .4) 

50 PRINT D* 

60 rjOTO ::a 

RUN 

10 
100 

11.100 
C;s a ay- 



See also 



Ganeral Furtclion 



STICK 



Kunction (lives directions of juyslicli 

Formal STICK (/) 

nesi'tipliiir ■ 

( VuUi.' M I"' .■liiaiif'l I 



ParamctiT ■ 1 = .laystii'k 1 
U) ■> ■- .)<,vsl»K 2 



--fl 7 



1 
8 2 





8 



3 KiBhl 



5 

BllIKllll 



Fltample: 



10 REM JDV STICI TEST 

20 E«="SHODT-:CLS 

30 F1=ST1CK a ) :P2=STICK(2) 

40 51=STRIG(1) !S2=STRIG12) 

=0 F1S="":F2S="" 

60 IF H = l THEN F1»=-UP 

70 IF Pl=3 THEN Fl*="ftIGHT 

B0 IF Pl=5 THEN F1*="D0WN 

90 IF Pl=7 THEN FI5="LEFT 

100 IF P2=l THEN FZ»=-UP 

THEN F2«="ft!GHT 
THEN F2*="D0WN 
THEN F1-» = "LEFT 



F2 = 7 
P2=5 
IF P2=7 



110 IF 

120 IF 

130 

14B IF SI O THEN F 1 *=F1 »*B«+STRt ISl > 

150 IF S2 THEM F2?=F2t + E'«*STR*(S2) 

1Q0 CURSOR I0,10:F'RINT CHRt(5) 

170 CUF;S0R 1 . 1B:PRINT-PLAYER 1 ■■:F1S 

133 CURSOR 10,15:PR1NT CHR» (5) 

190 CURSOR 1 .15:PRINT"PLAYER 2 -tFZl 

200 GOTO 7.0 



Ganeral Function 



STRIG 



(itick tritner) 



Function. Gives italrs of Ihc juyiiick trigger < ihe push button) 

Form»l: STRIG (f) 



Description 



Example : 



( Value 111 bp ob[.aiii4.<l ) 



ParimvLer 



Juy&tick I 
Joystick 2 



Trigger (left I ON 
Trigger (ngtlll ON 
Trigger {left, right) 



ON 



ChinKtar String Function 



STRS 



Function Converli numeric viluej to equivdenl numenc chBtKlet ttnngi 

Formit. STRS (numeric expieujim) 

DeKrtpilon; Vtt thii function lo convert numtric values lo equivaieni numetic character 
»trlflg(. Note thii the reiult cannot be uied in numeric calculations. 

UM|e: If the value 11 1 poiiilvc number. ■ ipacc ii added it ihe head of the retult. 

LIST 

10 A=l!&=3 

20 D*=STR*(A) +STR»(B> 

30 D=A+B 

40 PRINT D«,D 



10 REM JOY STICK TEST 

ra &5="SHDaT":CLS 

30 F1=5T1C1 t 11 :P:? = ST1C1 l2l 

40 51=STRIQ(li ;S2=STRlGt2! 

50 Fl»=""!F29="" 

60 IF Pl = l THEN F11i = "UP 

70 IF Pl=3 THEN F1»="RIGHT " 

80 IF Pl=5 THEN F1«="D0WN 

70 IF Pl=7 THEN F1*="LEFT " 

100 IF P2=l THEN F2«='UP 

113 IF P2=3 THEN F2S="RIGHT " 

i::0 IF P2=5 THEN F2*="DDWN 

130 IF P2=7 THEN F25="LEFT 

140 IF SI THEN F1»=F1»+B»+STR«(S1) 

150 IF S2.0 THEN F2t=F2»»&»+STR»(S21 

1d0 cursor ia,10:PRINT CHR«(5) 

170 CURSOR 1, iOlFRlNT-FLAVER 1 "jFl* 

ISO CUR5GR I0,15iPR!NT CHf<*(5) 

190 CURSOR 1 , 15:PRINT"PLAYER 2 " ; F2« 

200 50 TO 30 



ChsrBctBr String Function 



TAB 



(tabulation) 



Function Specifier a portion fri^ni Ihe left hand side of Ihe screen 

F-omiai TAB inumbeil 

Des.:npiion This funciion miisi be used m one of the PRINT, LPRINT. ur PRINTff siale- 
menis 

The numbet must be in th( range Ihru 37, and ifit has a decimal fraction, ihe 
(raclionvill he I runtated entirely 
TAB 1 01 II equivalent lo ihe estTcmcIcti liiind side ul tlw screen 



R mm pit' 



10 PRINT TAB151 1 "hPC" 

RUN 

,fiBt 



' S spaces 

The TAB funclmn will not erase vhaiaclers whkh happen to be in the jange 

specified tu it. 

Remember this function iinct ii is qune often used m the PRINT stalemcnl 



SPC 
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Arithmetic Function 



TAN 



(tangent) 



Funoijun. A insonameinc funclion: giv« the langenl of the atilhmc[ic exptejaon X 

Formal: TAN (XI ihe aipjmerl X musi be in radjui 

Ustge Lct'i rmdiaul Ihc langenisofvjJues (in degree) inpul Trom Ihe keyboafd. 

£aanipl« : 

10 INPur "iingle ■' ,■ "D 

?B X=tanfA> 

"0 PRtNI "TiJN I -ta; " ) = ";« 

RUN 

angle 3U 

TANf 7.0 )= .577;5a2ij91'7 



Chirac tar String Function 



TIMES 



Biamplf^ : 



Funclinn: Sets and di&plays the iruiei cl'ii:k 

Fomiat TIMES 

Descnptlon Eachcumpjiei hasadix-k m n 

And a very aiicumie, digital quartz clixk a contained id your compuiei. 

As looi) 31 you iwitch on ihe power of your computet, the clock bc|ini 1q lick 

with Ihe inief\4l of I lecund. 

Ai Ihe lime of power-on, lire cIolV 11 sei to 00 00 00. Typing 

PRINT TIMfcS CR] 

will display Ihe liitie elapied from ihe lunc of poweton. 

For example, lo lei ihe time to B. IS.OO. you lypt 
TIME$ = "0S;I500" [CR) 
Ihe cdmpulci will ans.wec 
Ready 

10 CL3 

L'Q IF TIME«=T« THEN 23 
7.0 CURSOP '.B.SiPRINT TIME* 
413 Tt=TIME*: BEEF- 
SB GOTO 20 



Once you ki the time. Ihe i:lock keeps on going until you puih the RESET 
bullon 01 lurn nff the power Thus you can use your computer at a digital 
clock. 



Chgrscter String Function 



VAL 



fnlue) 



Function Corvens numeric characler ^Itingi ino equhatent numeric values 



Formal 



VAL (tiumerii: t'haiacier Jlnngf 



Dcscnptian The firsl Lharatler of the argument to this funclion must be either numeric or 
one oft", '-', 'S" uia space. Otherwise the result will be 0. 
If ihe argument string contains a nonnunieiic chiraertr, then (he rest of charac- 
leis Stan Jig from thai character mil be ignored. 
This IS the inverse function of STRJ 



Example ; 



See also 



10 fi*="lZ345" 
jB Eh*="1 nil" 

7-0 C* = A**b» -Addition of numeric character strings 

mo C = VAHA») +VAL(&»1 -Addilionofnumericvalues 
Sa PRINT C» 
60 PRINT C 
RUN 

123451 11 1 I 
27-456 



STRS 



»- Numeric character string 
•- Numeric value 



GerMTRl Function 



VPEEK 



Function, Gives the conienls of ihe Video RAM 
Format: VPEEK (Video RAM ■ddreM) 

DcKriplion^ TTui function reads from ihe VRAM data for the characters or figures currently 
isplayed on ihe screen Refer lo Ihe address map for Ihe URAM. 



Biample : 



113 FOR V=1576Q TO 15730 

20 X^3:y=ia 

7.0 VF-=VPEEK<V> 

40 VPOf-E V + X+Y*-4Q,VP 

3D X=X+1:IF X=73 THEN X=a:Y=Y+l 

60 NEXT y 

8255 Pori C PCO 1 2 



LS 145 
VO 1 2 3 4 5 6 7 

V V y V M v y 



KEY JOY STICK 

BOARD ' 




SC-3000 KEY MATRIX 



1 ThaJoytttekTtnnlnal 

Two connecior sockets, JOY I and J0Y2, for joysiicks are supplied at the feat end of the 
SF-3000. each connected to the P P 1 made Ihc SF-JOOO. 



AMP 9 pin male type 



P.n 
numbar 


F unci ion 


1 
3 
3 
4 
5 
E 
7 
B 
9 


Lever 


-UP 
DOWN 
LEFT 

Lright 


Trigger LEFT 


Common 
Trigger RIGHT 



2. Vitho/Bidio Sigiial Output Taimifttl 



\ ©©®® / 

Outlook of the joyiiick connector )ock.El 
and Its pm numbers 



DIN 6pin female lyiJe 



Pin 
number 


Funclion 


1 


Audio signal 


2 


Video signal 


3 


GND 


d 


GND 


5 


GNO 




OuiiQok ol ilM VIDEO connecioi socket 
■r>d ill pin numbeit 
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3. Sariil PiUitvr Connactor Tip 



Pin 
number 


F one lion 


1 




FAULT 


1 


BUSY 


3 


DATA 


4 


RESET 


5 


FEED 


6 


CND 


7 


NC 



DIN 7pin temal* tvpe 




Outlouk o1 ihe uiial printer connector socket 
and Its pin numbers 



SC 3000 Extsntion Slot Connector Tarminal 



Slds A (lowar) 


SideB<upp«r) 


Pin 
rtumbtr 


Signal narrw 


Pin 
oumbflr 


Sigrial riimi 


1 


Ao 


1 


*6V 


3 
3 
4 
S 


A] 
Ai 
A4 


a 

3 
4 
5 


♦5V 


DSRAM 


CEROMZ 


MEMfl 


6 


A, 


6 


MEhtW 


7 


A» 


7 


I/OR 


H 


A7 


a 


l/OW 


S 
10 


A. 
A, 


9 

10 


N.C, 


MREO 


11 


A,D 


11 


CON 


12 


A,, 


J2 


RASt 


13 


A,, 


13 


CASl 


14 


An 


14 


HAM A7 


15 


Do 


15 


RAS2 


16 


D, 


16 


CAS2 


17 


0, 


17 


MJX 


ia 


Dj 


IS 


A,. 


19 


D< 


IS 


A,, 


20 


D, 


20 


N.C 


21 


D* 


21 


GND 


22 


D, 


22 


CND 



Ao - All 


CPU iddrcu bui 


Do - D-, 


CPU diia bui 


DSRAM 


OPEN if SRAM Toi 




SC-3000isused, 




+5V if noi 


CER0M2 . 


Selccl memory. 




0- 7FFF 



1/OR 



[/OW 



CPU signal 
MREQ- R[) 
CPU signal 
MREQ ■ WR 
CPU signal 
lORQ ■ Rli 
CPU signal 



lOHQ ■ WR 

■ CPU signal 

H.P.I PBi 

CAS HeOOO^BFFFH) 

D-RAM Conirol signij 
RAS2. CASl<CO00-FFFFH) 

D-RAM Control siginal 
D-RAM Cor>irol signal 



MREQ 

CON 
RAS1. 



MUX 



ConrtacTor tochtt to tti« cwnputar 



33 ■■■- ■■ S 


3 1 


0000000000000 00 





OOODOOOOOOOOOOO 






6 4 2 



Pin numtw' 


Signal name 


Pin number 


Signal name 


1 


A, 


2 


Ai 


3 


A, 


4 


A. 


5 


A. 


6 


A, 


7 


Ai 


8 


A, 


9 


Aa 


1 


A. 


1 1 


A„ 


1 a 


A„ 


I 3 


A„ 


1 A 


All 


1 b 


A„ 


1 6 


Ai. 


1 7 


D. 


1 R 


Di 


] 9 


D, 


20 


Di 


■£ 1 


0, 


a 2 


D. 


2 3 


0, 


2 4 


D, 


2 S 


GND 


2 e 


1/OR 


2 7 

2 9 

3 1 


GND 
GND 

GND 


Z 6 
3 
3 2 


l/OW 


MEMR 


MEMW 


3 3 


GND 


3 4 


MRBO 



LIMITATIONS 



Conlentt 


Limitation 


Choraciets uken mlo Ihe inside Trom (he screen 


256 chJiaclers 


Chatacier numbers uiable for aL^lual tevi image by leseived 
woidi cunverred from line buffer 


25fi characters 


Character numbers whjdi can be handled as characler ilrmg 


25 S charticieiB 


Level numbei such as opcnlor prioiiiy. etc. 


32 levels 


Ari-j fill sump operalion 


30Q characters 


[■OK - M \ 1 nesting level number 


16 levels 


GOSUB. RETURN neiltng level number 


S leveli 



CHARACTER SET 





II 1 i^ 1 3 < 


& 


ti 


7 


tl 


.Ia 


I 
b C 1 D 


E 


F 


^ ■ ■ 1 II 1 'a. 


P 


^ 


P 


1 


■ 


Ai ! JU 




1 




1 


■-'.^ 


Q 


a 


q 


— 


X 


A i i ' u 




1 




2 




. ■ L^.:.b. 


R 


b 


r '-^l-( A 1" : ' ' ■' ' 


3 




3 C 


S 
T 


c 

d 

e 


S -T- 


A 
A 


1 


1 


t 


S 


4 
6 


D 


1 i 


1 


''-;^ 


|. 


S 


" 




^ 


U 

V 


Fu \.d A \ 


* 


■ 


* 
• 


6 

7 






e K 


! 


V . r 




A^ 6j_-^i 


• 


l\0 


w 


8 


y 

z 

1 

1^ 


1. 

_i 


A 6:j" 1 


— 


* 


u 




1 


H 1 II 


X 
Y 
Z 


h 
1 

1 
k 


r\i o'li' 


1 


* 


9 
A 




-— 


1 

+ 


- 1 J 

: K 


— 1 E 6 

-JE 
Hi_E 


n 


^ 




• 

HI 


< 


L 


Y 

1 


1 

m 


--(w 


E 6 


i 1 ;■ 


1- D ^ 




- 


"- 


= 


E 1 U 


i ' 


tl 


b 




> 


N 


.-*> 


n 


- 


r |-:n 


U 


-* 






P 








? 





« 







- 1 i fi 


u 


X 












"Tvv 




, , 

























CHARACTER CODE 













__ 




3? 


^ 


4S 





« 


ta 


BO P 


96 


"■ 


112 


P 


128^ 


33 


t 


4S 


1 


65 


A 


81 Q 


97 


a 


113 


q 


129 


Hi 


























34 


' 


50 


2 


66 


B 


S2 ' R 


98 


b 


114 


r 


130 




35 
36 


S 

s 


S2 


3 
4 


67 
68 





(-- 

83 S 

84 T 


99 
100 


c 


115 

lie 


t 


131 

132 


37 \ 


53 


5 


69 


£ 


85 


U 


101 


117 


u 


133 


m 




' — 









, 










- — ' 








38 & 


54 


G 


70 F 


36 


V 


102 


1 


118 


V 


134 


[A 




39! ' 


55 


7 


71 , G 

- i 

72 H 


B7 


W 


1D3 


9 


119 


IV 


135 


B 




40 1 


56 


Tl 

- 

--t 


ea X 


104 


h 


120 


-^ 


136 


m 




41 ) 


57 


73 1 


«^ 


105 


1 


121 


-^ 


137 


yj 




42 * 

43' + 
U ; , 


56 
59 

eo 


74 

7S 
76 


J 

IT 

L 


91 jj_ 

921 y 


106 
107 
106 


J 

k 
1 


122 
123 

124 


@ 


138 
139 
140 


□ 




45 -1 


6t 


c 


77 


93| J 


109 


m 


125 


^ 


141 


u 




46 , 


ei 


> 


78 


N 


94 -^ 


110 


n 


126 


142 


m 




"\JJ 


u 


7 


79 





95 [« 


111 


."L 


127 


J 


143 


H 




1*4^ 


IGO 


A 


176 


i 


192 





20s 


■ — 


224 g 


240 


"J 


145 [S 


1E1 


A 


177 


1 


193 


209 




226^ 


241 




146lffi 

147 r^ 


162 


A 


178 


' 


194 


u 


210 




226 a 


242 


; 


163 


A 


179 


1 


195 





211 




22' 


243 




























148 ra 


164 


A 


1B0 


1 


196 


ti 


212 




228 a 


244 




149^ 

130 fi;] 


1S5 


A 


1B1 


1 
6 


197 


8 


213 




229 


a 


345 • 

1 1 


166 


A 


162 


isa 


y 


214 




230 


-S' 


248 '« 


151 a 


167 




183 


n 


199 


;* 


216 




231 


247 ; « J 


























162 iE 


166 


E 


1B4 


V 


200 


"0 


21G 




232 


M 


248 *. 


153 jG 

154 jQ 


ira 


E 


185 





201 


217 


233 


n1 


249 9l 


170 


e 


186 





202 


n 


?ie 




?34 





2H)I*; 


1S5 B, 


171 


E 


197 





203 


C 


?19 




235 


'. ■'. 


^'X 


ise Hi 


172 


F 


1S8 


204 


i. 


220 




236 


W 


S2H! 


157 in 


173 


E 


1B9 


o_ 


205 


\_ 


221 




237 




^\f. 


158 !n 


174 


N 


190 


u 


206 


A 


222 




238 


■ 


264 ^ 


159^ 


ITS 


A 


1S1 


1 u 


207 


L 


223 


- 


2» 


255 L 1 



26 



Error MhhoV 



Meuage 


Memnq 


Arr*v name 


Argumenl to DIM itatement nol array 


Bia file rnadt 


Atlemptml lo process file aijaint! its mode 


Bad tile numbei 


Wrong file descriptor 


Command parameter 


Wrong argumenl to commana 


Can't continue 


Can 1 continue wilh CONT slalement 


Device not readv 


Printer not connected or out of nrder 


D>sk fut! 


No liee space in dhk. can'i SAVE 


D.UK I/O 


Aiiempied 10 write on wrnep'oiecied disV (protect hole 
openi, invalid I/O 


Diik olfilne 


Attempted to acceti disk when offline (not iniorted into 
drivel 


Division by zeio 


Denominstoi was zero 


Eh Ira ignored 


Wror^g input data to INPUT ilitement. CHlra data ignored 


File siready existi 


File already ejitsis under tfie name supplied hi argumenl 
lo NAME (renamel 


File already open 


Aliempied lo open a 'ife which ii already open 


File not found 


There n no 'ile at indicated 


File r^ot opened 


Aitempied lo access tile mat is not open 


Fil* write ptotactad 


Wiitp attempt to read'Only tile 


FOR neiling 


More than B levels of depth in FQR-NEXT 


FOR Vifiable name 


Non numeric varnt>le to FOR Icharncter type or array) 


Function buffer full 


Attempted (o define more Ifisn S user functioni 


Function parameter 


Arong argument lo a function 


GOSUB nesting 


Neiied subtourinei with more than 16 level] 


Illegal direcl 


Cannot execute direct statement 


Illegal line nurnber 


Lin* rumbar is imprDper 


Input pail end 


Attempted lo read tequentia! File past end of tile 


Line image too long 


Too many characterj in one line (RENUM, etc.) 


Line number over 


Line numberi enceeded 65S3S m AUTO or HENUM 


Numtxr of luDScriptB 


Nuinbir dI luOscripB i« unuiusl 



Message 


Meaning 


NEXT without FOR 


No caiiBsponding FOR to the NEXT iiaiemem 


N formula too complex 


Too compte-n numeric expression 


No program 


Attempted to SAVE while no program in text buffer 


Out ol data 


READ iried to read from a DATA siaiemenl having no 
data in it 


Out of memory 




Ouertlow 


Numeric overflow in arithmetic cupression or In value 


PRT. 2 not selected 


Attempted to lake hard copy (HCOPYl of graphics 
wirKtow Wit*iout swilcbing to appiopriato printer (I/O 
unit] 


Redim a array 


Anampted to re-declare an array 


Redo from start 


Wrong data to INPUT stitement need le- input 


RETURN withourBOSUB 


RETURN statement sKecuted having no iwrresponding 
GOSUB 


S-formula too complex 


Strirtg eipressmn too complex 


Stack overflow 


Too many parentheses, figure too complex for PAINT, 
or a user function is recursively defined 


SOlement parameter 


Wrong argument to staletrent 


String loo long 


Character itnng was more than 355chBr»ctefs long 


Synla> 


Syntax error 


System 


The BASIC interpreter made an error Inol posiiblel 


Type mismatch 


Type mismatch between data and variable (naloe. stnrigl 


Undefd array 


Attempted to ERASE undelined array 


Undet'd function 


Attempted lo call undefined user function 


Undet'd line numbei 


No line under line number [RENUM, GOTO, GOSUB, 
IF-THEN. RESTORE. RUN) 


Unprintable 


Unknown error 


Value of subscript 


Subscript wrong or out of range 


Verifying 


Error during comparison between program m memory and 
program on cassette 



SAMPLE PROGRAM 



VftAM address ol ibbi 



la REM -JRAM atJdress of tent 

27\ KDR V=1576B TO i:3700 

30 CURSOR"a.U:PMM I V 

40 X=B:y=ta 

50 VP=ypEEK (V. 

60 VF-Ol.E V*-Xi-Y-40,VP 

-'0 X-X»J:IF-- X = ,-;e THEN X=0: y = Y + l 

G0 IMEXT V 



VRAM address, arBphcs SCREEN 



SPRITE HIT 



ltd REM -VRAM address, araphcs SCREEN 

20 SCREEN 2,2:CLB 

~.B PR1NT"H'- 

40 SCREI-irj 1 , I :CLS 

50 AD=&Hlfla0a-t-8 

60 FOR i^=fin TO AD+7 

,-■« Dft-VPEE^ if,) 

80 PRINT HEXtlDAl 

90 NEXT A 



10 REM SPRITE HIT 

20 Sl'-REErJ U,!' :CLS 

30 (-■AyTERN&lt0,"7B9CDflFFDE''C093O' 

40 PfiTTEKN'..-.»4."0ZOl'C2226L'A224ia' 

50 X=BOiV = ''U 

£.0 l.INEa63,0>-(167-,'?0l .10 

70 t^MiZ 

B0 yPRI TE 0. (X,V! ,0.S 

90 SPRITE 2.1150,381.4,8 

i0n i^x.i 

M0 S^INPfSrHBF] AMD %iH2a 
120 IF SOB THEN GOTO 14B 

1 JO uinc \tifl 

1413 r.LS 

lf;0 riRCL.E H20. 901 .50,6,.; 

160 ClJhiiDftll0.85:PRIN"HIT '" 

1/0 F(IRW-0 ill 100:NExr U 

180 r.L5:G01U 20 



flnr graph 



IB Ren - Pir gfjiDh 

fB r.LS 

:b Fon i-B to ; 

4B rPcINI CHrr»lfi5. 1 ) 1 ■■-■■i 

Z^a IMUI nunovr al B to ^P "laiM 

oB IF a< ] I Bor<r> 1 1 1 rn iitrii ib 

^B NEKI 1 

SB CLSiN=;arFOR raB tO 2B 

50 tF VHnP3-^l IHEM CUt'SOf O , ( 1 f n 1 fJ 1 Hi 1 

U-N ii 

IBB cuRSonr , nrriiNi c>ir.«M;ei: 

119 NEi' V 

ira fOK t-z 10 T-h 

I ;a cuH5iFr> ,:;i iTRiui rnFi«ii5nii 

HB ME'i I 

IM fOTt 1-6 TD "5 STEP T 

170 'tin «"IB 10 Jl -n ( (1-61 /;i SIEF -1 

isB tr AMI -£,>/j>-o TuFM :;ao 

I^B CUFlSOni. 'iFBtfl-- 1 

;piB MEiiy 

Z1B NEITt 
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COLOR AND SPRITE 



IB Ren COLOR OND HPHITE 

?B ECItEEI>l :■. J:t:tlLt)R, I , IB.III - (35S, IVI > , 

TB FAIteRN S»e,"FFf FFFFFFPFFFFFF- 

*Sl PflTTEHN S»l ,"FFFFFFFFFFFFFFrF- 

SB Ffll tERN St7, "FFFFFFFFFFFFFFFF- 

aa POTtERN 6»J,-FFFFFFFFFFFFFFFF- 

70 F-atTEFiN sm, "iisaLfi:;osQ5cisft5as" 
eo FfttiEnrj s»s.-n5fl5o^a5ar,QSn5n3" 

90 FflttERN S16,"fi!W5A3flaOS05aSll3- 
IBB Farifcs-r* s».', n^OE/iTin^/isa^nsAS" 
11B FOR fl^B ID - 
I3B fiESiDhE fBiMOG HrCLS 

1 :b foe 1=8 iLi -...fasa siep .b2B 

I4S READ N,r 

isa l-SlriilJUBB-IIJ 

lae vccos' Inft5'90 

I 7B SFKt '€ N. < I ,Y I .a,r 

IBB "E" [ 

\we DOTH 8,;,:i.8.i .a, :o,i .-,r,io 

zee Dfiia ^''.3,:. 7,2a.6,4.s,;7.i 1 

210 FOR 1-B 10 t.^B Srer .1 
rjB );»5:mi1 hBB'U? 

rrB '=i:osi ii«a3-<ye 

34B SFH:i£ •*, 11, «i .•,13 
35B MEiT I ,n 
Z&B GOTO iia 



' Jlpf^ 
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IB REn ----- Li 

I'B LLS 

•a FOR 1-0 10 7 

4B cRirtr cHr«* i&r, 

z.a iNrui 'nurauer c> O to too "iRil) 

ISO tF nrll BDRA'II IBB THEN '■B 

7B WEIT t 

BQ INT'lir "Bsr g> Jli'-i I Dr Lin* a' »pt>- 2 

; B 
■70 IF p innti r ihfn e-fff p.r.ti'o bb 
IBB [iDSuP 2aa 
1 IB ON r- 13a I ri 1 .'B. 1 7fl 
13B FOR ■•HI to 2:0 SIEP 24 
1T0 CUIiSD>n,TViFR|NtnMR»H.5«II-4t I /?41 

ISO coi nn ,4 . i(- 1 .«B> 1 ifA.ia.n 111-411/ 

14 1 1 

ISa NET I I 

ibO (>oiO leB 

1TB cuRiOR4i, :7iFB-tm -a- 

IBB ClRCLE<4a,4B<a'Bl I ,r.4 

I-fB F S£l I40,'10•'|^ IBI I .d 

200 FOR I-b4 TO 2Ze StEP 2* 

210 COLOR 1 1 CiiriRnR" . --7iFBlNICHR*'65' tl- 

*i41 /J4»l 1 

rra tlKCLElI,4B-B( K-64I/24HI ) ,2.4 

TTO LIKE H ,4H.ai ( I -i4 I /3««l I 1 

740 Nf n I 

250 GOTO 2'.B 

2f.O SCREEKl a,2iC01.ORl .Itill^LS 

27B F DS[ I ION rB. I'll J ,0, I 

2eB LlrJE l?l , 1 /»' - < "1 .-101 . I 

T'fO L INE ■ I740,4BI 

■;BB CllfiSDRl2. L*"if-t IM ■IBB" 
JIB CLIR50Ria.''4iFB|NI'-30" 
IZB CLJRS0Rr4,fl4.RnifJI 'O'' 

z~a BETunw 
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10 REM --- color clod 

ra SCREEN l.".2:CDL0R, 15, 10,0)- (25S, 19l> 
, 15:CLS:MAG1 

30 posn iaN(0,i9i) ,0, 1 

40 PATTERN SttO, "071FT.F7F7FFFFFFF" 

50 PATTERN Sltl ,"FFFFFF7F7F3FlFia7" 

60 F'ATTERN 5«Z, "EOFBFEPEFEFFFFFF " 

70 PATTERN B«3,"FFFFFFFEFEFCF8Ea" 

80 PATTERN S#4, '■A5A5A5A5R5A5ASA5" 

90 PA i TERN SnS, '■A5fiSA5Al.fi5A5A5A5" 

100 PATTeRN S«6,-A5ASfl5A5A5A505A5- 

110 PATTERN Stf',"A5A5A5A5A5A5AS05'- 

120 DEFFNS=S1NCRA[)(VAL I RIGHT 4 (T IhE»,2) 

)»6t >»g0+ir7 

1 id DEFFNi: = COS(RAD(VAH RIGHT* (TIME*, 2) 

1 *h> )»i5*90 

110 DEFFNS1=SIN(RADCVALCMID*(T1ME»,'1,2 

> 1 ♦&) ) *5Z. T.t-127 

150 tiEFFNCl--=C0S(RflD(VAL(MID«tTIME».4,2 

) ) •6) ■' •43. 3+90 

160 DEFFNS2=SIN(RADf'^AL<UEFT«(TIME»,2> 

) »3Q+VAL (MID* (TIMEl.li^l ) /2) ) •40+ 127 

170 DEFFNC2=CDS<RAD(VALiLEFT«(TIME«,2> 

1 "^O + VAL (MID» lTlnE»,4 , 2) J /2) ! •32.5+9B 

1B0 CIRCLE! 174. 182) ,8. 1 , 1 ,. ,BF 

190 LlNEl 126, lt7»-(142, 1B2) , ,BF 

200 FOR 1=1 TO 12 

210 >; = 5IN(RAD( 30*1 ! ) "80+ 17-5 

220 ¥=caS<RAD(30»I M »fa5+B2 

230 PSETC X , Y- 10) , I 

240 LINE-(X-9,Y+5} 

250 LINE- lX+9,¥+5) 

2,SB L TNE- I X,V-10) 

270 PSEHX-9,Y-5) 

280 L1NE-'):,Y*10) 

290 LlNE-tX+9.Y-5) 

700 LINE- !X-9,V-5) 

310 LINEU35,a2)-(X,Y) , 1 

320 NEXT I 

330 BLINE£107,9O>-(163,75) . ,BF 

:.4B CURSORl 1 1 ,8&:PRlNTTI«Et 

350 SPRITE 5, iFNS,FNC) ,0, 13 

360 BEEP ;WW=VAL (RIGHT* (TIMEt.2> ! 

370 SPRITE 6, (FNSl,FNCi ) ,0,3 

■:.30 SPRITE 7, (FNS2.FNC2) ,0,7 

390 GOT a 330 
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IB BErl 

Za tiEn cleel' 

•e riLn — 

*e CLSiPniNT" B»ll 

SB INTUl '■-i'i*t tlms ~"l'* 
691 I"^ !•=-'■ IllfN SB 

SB SCREEN r.JlCL^lPHlNTHI'* 
9B fOSiriON ra.Bl.B.a 

IBO coLijR , i'^. la.B'- <r5r,.if 

1 IB RT-I , 15 

ira LINE ' jo.B'-urs, m 1 .1 

1 1-e Pos 1 T I DM 1 1 78 . va I , a . I 
MB eClRCLE TB.Bl ,'».13,BI., 
I SB FOR Ti| in ir 

t&e iH.RftDi i--in3ei 

17B V-6'«Sl«MHI«m'fl 

me i"n7«cosiiHi -7 

laB If r -^IB 1HEN I.1-? 

?BB COLOR H 

31B CUH50K >-d.,y iFRrmli 

3;a NEii 

2TB Ll-*7 1 L3-HT«H 

34B l.:!"55 I L»-HI»Li 

:SB L5-55 T L6-HI«U5 

Zae H=VflL (LEFUll lnE»,3) 1 

77B H-UOL IHTD* I T inE(,a,ZI I 

;aB •«'Biic I TB»M»n/3i 
7'>a h>-li»s:nihhi 

IBB H..L?<t:05iHHl 

JIB Hl-H 

IIB HS-RfiO 1 6«H1 

i;b ni-Li«siN(MH> 

J»B MV.L*>CDSIHni 

ZbB REn 

T7B REM — 

790 S-VALlKlGHI«lTlnE».?l 1 
•00 IF S-51 T'lFN T'O 
*IB l«-IlnE* 

«:m H-vonLErT»iT»,;)i 

aTB n-VBL (H1D« rH,*.3l t 

4aB SI'S 

«5B SB-RADI 6"S1 

■bB SI-L5>5IN isn> 

«7B S'^L6»C05ISI*i 

*BB IF H-ni IUCK 

aVB MR-liaDt (■•Ml 

3BB mtLI'SINInRJ 
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51B ncL-i-rosdiRi 
s;a ni=M 

3iO H^'RHDirO*" • "'31 
54B IH-LI«S1N1HRI 
550 HYrLr<COSiHHl 

sbB i'LiNEie.Bi -I'n.irii ,2 

578 BL 1NEIO,Bl-lJH, VHl ,2 
SeO I>LINE<Q.Dj - HE, V5A ,2 
5*a L IME IH.DI - IHI ,HVJ ,2 

baa L ir^EiB.Bi - (M> ,hi I .2 

(.]OLIIve'0,BI-csI,Sll.2 

t20 BLINE I -i'a.-B71-(23,-''5l , 15.BF 

ilB CURSDB -24,-BB.C0L[J« 1 

6«a miNi T*i 

6;iB Qasuti 7ro 

bba iH-Hi I ^n-ni i is-sx 

670 vi'-HV . vn-nf 1 »B»B¥ 

6se BO 10 -Ba 

6'0 REM 

7O0 REI 

718 REH 

730 IF n ST THEN 7S'B 

?3D IF 5--.? rwEM 7'i4S 

7*0 5OUH0 1 .gao.i^ 

7S0 FOR J=B in IB 

71>a NEII 

77B SOUMD O 

7B0 HF— 1 

79a IF nF--l IHfN Bta 

8BB IF IV BIII-IEN BEEF I : PFFF B 

SIB IF U'fl 1HEN saa 

S?B SOUND 1 .BBn.'J 

e-^e v-v-r 

SAB tF n I TtKN BSB 

e^a IF S.I rxEN sbb 

BAB SOUND I.BBB.IS 

87B V-IA : nf-B 

BBB RETURN 

B'fB REM 

•lem r-jroisnjNO u.is 

910 FDR 1«1 10 4 

■?2B C!«1T*HD11 ■ -I iT.RNDdi •*» 

■jsa ca-iiiD=2«i 

9*0 FOR I--"J 10 145 SIEF 4.1 

950 CO'DB-tDl V.YfDB 

■JAB IF flpStOOl ^.l THEN D«-D 

■J70 srniiF 1 , <i:,v) .11.4.12. CI 

■JSO EOUNO I .FtNO'1 1 'F-F 

•fia net T iF.F«r 

IBilB NEUT 

IBia PEEFBiREIU'^U 



EASYCODE PART 1 

A MACHINE 

CODE 

SIMULATION 

Simon N, Goodwin 

So that we can teach you the principles of 
machine code programming without worrying 
about what microprocessor you've actually got, 
this series uses a BASIC simulation. Clever, 
huh? 



This series of four articles is 
aimed at anyone who would 
like to learn to program in 
machine code, the fastest and most 
intncate programming language on 
any home computer. Machine code 
is generally tens of times faster than 
BASIC; it is the language used for 
most sophisticated games and 
business programs. 

This series will explain the 
principles which underly machine 
code programming rather than the 
mtty-gritty details of how to program 
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the Z6509A U -bit NMOS CPU with 
on-chip TTL I/O! The examples can 
be run on any popular computer 
which supports BASIC and a TV 
display, eg. SEGA. 



MEAN MACHINES 

When you set out to learn machine 
code, two major problems are likely 
to stand in your way. The first pitfall 
for the budding wizard is the 
unfriendliness of most 'monitor 



programs. Monitors are programs 
which let you wnte machine code, in 
much the same way as a word 
processor lets you write letters. 

Most monitor programs expect the 
user to type cryptic one- letter 
commands or devious mnemonics. 
On a Spectrum or TRS-80 the 
unpronounceable word "LDIR" 
means 'copy memory'. "3C>0G" 
means 'go to BASIC to the Apple 
monitor. Similar examples abound. 

Things become even worse when 
you try to lest your program. In 
BASIC, if you mis- type a line number 
you ore told something like "Line not 
found". Most momtors can't detect 
such a mistake — the machine code 
will zoom off to a non-existent line, 
usually with non- satisfactory results! 
From that point onwards the 
computer is out of your control. 

Mistakes like this often cobble the 
entire contents of the computer's 
memory, forcing you to reset the 
machine and load your program all 
over again The sheer speed of 
machine code makes it hard to 
diagnose the exact location and time 
of an error. 



NEW IDEAS 

The second problem to be faced by a 
would-be machine code programmer 
is the Intricacy of the language. 
Machine code is different for every 
type of processor, but all of the cheap 
processors incorporate these 
principles: 

• The idea that data and program 
are equivalent 

• The idea of storing information on 
a 'stack' 

• 'flags' and 'registers' 

• 'addressing modes' 

• Number representation (binary, 
decimal, hex) 

• 'bit' manipulation 

None of the principles are very 
complex, but most of them must be 
understood thoroughly before any 
useful programming can be done. To 
those six principles a seventh should 
perhaps be added: 

• Jargon! 

since, like other areas oi 
programming, machine code has 
spawned a new vocabulary for 
humans as well as for computers. 
Jargon is, within limits, an efficient 
way of communicating ideas, so this 
senes will not shy away from it. 
However, unlike the people you meet 
at computer shows, we will do our 
best to explain what we mean by 
each word before it is used! 



THE UNIVERSAL 
CODER 

This series features a standard BASIC 
program, developed and refined over 
three years, wtrich demonstrates the 
first four'points. Once these are 
understood it is easy to see the 
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1 Fig. 1 The Easycode display. 







relevance of the others, The 
demonstration should give you the 
confidence to move from this 'model' 
machine code to the real thing. At the 
end of the series we will duscuss the 
differences between the 
demonstration and real machine 
code. 

Program 1 is the 'toolkit' which you 
will use to teach yourself machine 
code. You probably remember how 
BASIC didn't really make sense until 
you got hold of a computer and 
actually used the language. 
'Easycode' {Program 1) lets you learn 
machine code the same way, by 
combining the essence of machine 
code with the messages and safety- 
checks of BASIC. 

Easycode is presented in two 
parts. The first part, listed this month, 
is a complete toolkit which allows you 
to program in simple 'machine code'. 
The second part will add extra 
facilities, allowing you to expenment 
with 'assemblers', 'disassemblers' and 
'stack operations'. These terms will be 
explained, by example, in Parts 3 
and 4 of the series. 

Program 1 provides all the 
facilities you need to enter, modify 
and test machine code programs. 
You can also store your work on tape 
for retrieval later. The next listing will 
consist of lines to be added to the first 
program — it won't be a program in 
itself. 



EASYCODE 

There are two places where 
information can be stored in a 
computer — the memory and the 
processor. Easycode lets you watch 
Information {programs and data) 
being copied and manipulated 
inside the computer. The program is 
a kind of 'computer simulator. A 
typical display is shown in Fig 1 . 

Easycode simulates a computer 
with 100 'memory locations', 
numbered from to 99, A 'memory 
location' is a storage space within a 
computer — a kind of electronic 
pigeon-hole in which a single value 
can be stored. Sometimes a memory 
location is refened to as an 'address' 
— the name of a place within a 
computer. 

Easycode shows the contents of a 
memory location as a whole number 
which may range between and 99. 
That number might represent a letter 
of the alphabet, or a colour, or 
anything you like. In Fig. 1 you can 
see that location 1 contains the value 
10. Location 98 holds the value 42. 
(Every computer should contain 42 



somewhere!). Most of the memory 
contains the value 0. 

The top 10 rows of the display 
show the contents of the computer's 
memory, from location in the top left 
comer to location 99 at the end of the 
tenth line. The leftmost column is an 
index. All of the values m the other 
columns can be altered — they 
always show the value in the 
appropriate memory location. The 
effect is rather like having an 
integrated circuit with a glass top — 
you can read the computer's memory. 

The twelfth line of the display 
shows the contents of the processor. 
Broadly speaking a processor does 
four things: 

• It fetches values from memory 

• It alters values once they are 
fetched 

• It stores values in memory 

• It changes the sequence of 
operations perfomied depending 
upon the values it contains 

The processor must have some 
memory of its own, so that it can 
remember values once it has fetched 
them. Memory locations inside a 
microprocessor are called 'registers'. 
There are usually between two and 
20 useful registers m a processor. 
Easycode has three registers, named 
A, X and P {registers often have one 
or two- letter names). The value stored 
in each register is shown, next to its 
name, on the twelfth line of the 
disploy. 

The 'A' register, or 'Accumulator, 
IS used to hold the temporary results 
of calculations. The'X' or 'Index' 
register contains either results or the 
'index number (address) of a memory 
location. Index registers are used by 
a computer to 'mark its place' in data. 

The 'F register is the 'Program 
Counter'. Every microprocessor has a 
program counter. It contains the 
address ol the 'instniction' which is 
bemg executed. 



INSTRUCTIONS 
EXPLAINED 

A computer decides what operation 
to carry out by exammlng values in 
memory. These values are called 
'instmctions' — different values cause 
different operations to be performed. 
One value might mean stop, another 
might mean 'JUMP (change the value 
of the program counter) and so on. A 
machine code 'program' is just a 
sequence of instructions. 

Instmctions are numbers fetched 
when the program counter indicates 
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CLEAR Bld»fil,s EasyLicjde's mmmary dnd registere 

HELP Shows A summary o* the coniniandE 

LOAD Read memor-y contents f r cim t^pp (ar di *l.' ) 

UUIT Stops the FrtSvCode BrtSIC (ir oyr ain 

RUN St or t s d> m^fh J nc- code I'rogr iiBi 

SAUE St nrf? memor . i:ont(»nts nri tape tor disi- I 

STORE Ctiariqes the value ^t arty memorv locsticrt 



Table 1. Easycode commands. 



them- Values fetched for any other 
reason are 'data . There's no reason 
why some locations shouldn't be both 
data and instruchons at different 
times. The computer can produce 
data and then JUMP to it and treat it 
as instructions. This is potentially a 
very useful trick, which we will 
explore later in this series. 

The program counter determines 
which location is examined for the 
next instruction. Normally the 
computer steps from low-numbered 
locations to higher ones, ]ust as 
BASIC goes from one line-number to 
the next. Some values may cause the 
computer to skip locations or go back 
to a lower-numbered location — 
these machine code instructions 
correspond to the 'GOTO' command 
of BASIC. 

The last important components of 
a processor ore the 'flags'. These 
operate rather like railway points, 
telling the computer whether it should 
go ahead (to the following instruction) 
or tum elsewhere. Easycode has two 
flags, labelled 'Z for 'Zero' and 'C for 
Carry'- Each flag may have two 
values — 'set' or 'reset'. Some 
computer makers take a high moral 
tone and label these values TRUE 
and FALSE respectively. Easycode 
shows a 'Y' next to a flag's name 
when it is set, and an 'N' when it is 
reset. The significance of these flags 
vflll become clear later. 

PLEA AND 
JUDGEMENT 

The last two lines of the Easycode 
display are used for commands and 
messages. Reports from the computer 
appear on the bottom line. 

Commands ore typed in capital 
letters on the line above. Table 1 is a 
complete list of the commands 
recognised by Program 1 . 

Since instructions and data are 
stored identically, the STORE 
command can be used to enter any 
kind of information. If you type 
STORE while the prompt 
'Command?' is displayed the 
computer responds 'Address?'. 56A 
Stalingrad Mansions won't do — you 
must type the nimiber of the memory 
location you wish to alter. If the value 



you type is not in the range to 99 
you are asked for another command. 

Assuming that you typed a valid 
address, Easycode asks you for the 
value to be stored at that address. 
Enter another value between and 
99. Easycode takes it and stores it in 
memory. If you watch the display you 
will see the value appear. 

Next you are asked for a value to 
be stored m the subsequent location. 
The sequence continues until the end 
of memory is reached or you type an 
invalid number (such as ) 00). You 
are then asked for a different address. 
Either select a new address and enter 
values as before or type 100 to halt 
the store operation and return to the 
'Command'?*' prompt 



A SIMPLE PROGRAM 

The simplest BASIC program is; 
1 STOP 

To write this in Easycode all we need 
to know is the instruction value which 
will cause a program to halt. Table 2 
contains a full list of Easycode 
instructions. At the head of the list is 
HALT — when the computer 
encounters a '0' instruction it will stop 
and display the value of the program 
counter. 

In case of accidents, all of the 
computer's memory is filled with O's 
when Easycode is first run. Wherever 
we start our program it will encounter 
a HALT and stop immediately. To 
confirm this, type RUN and then enter 
any address. Easycode loads the 
number you type into the 'P register 
and then executes the instruction 
there. Notice that each memory 
location is flashed as Easycode reads 
an instruction from it. 

We'll try something slightly more 
complicated next. The next program 
contains two instructions (wow). The 
first instruction loads a value into the 
'A register and the second one is the 
HALT which we have come to know 
and love. 



Code 


Mm ■mill 1 1 c 


O 


Hftl r 


1 


LO.'.D Pi;ri 


- 


1 r'i(M) >\\ .lir. 


- 


i;)TLlftr A:u)i. 


4 


1 n.-.li ri; i; 


S 


i\\:>\'i Mill 


i> 


SUM ..!ii 


7 


SLIP li!JI> 


« 


JUI-lPNl :ii 


V 


.11 IMPN^! t» 


l.i 


.nJMP; n 


1 [ 


L.OI4D X;rl 


t2 


LDWD X:3n 


13 


STORE K; *iii 


14 


LLIAD X:r. 


15 


ADD X ! n 


\b 


BUB X;t> 


17 


LOAD A;^X 


18 


STDRE A;4lX 


19 


ADD A|.j]X 



Ri.irpoit.- 

Stnp lrtr-..il. L I It? I C.iLle (■' ■-■qt 

F'lit no , t iiiu-ihiu . i oil I. ^1 it a ' ii ■ III II, 
PmI (.(inl t-ii ^ Lit rfrlilrt-^r r. in i i. 
Flit . i;.i.l eiii ■£. tit f. ...t jdilr....-.^ ii. 
Lop, ii-nrciM^ ,-..» • u.Il.p ■• ..^ m.-l I . 
All J tit":* ih...iiic?r . f orii-fii t f-- t i . ti. 
rii ih I I i*i I I .o . I niirinor v c nnt ir>iit >! ( r om m . 
S(.ibl r ^1-1 till? <- Linleiit^ tif 'he ...fiiif- e>,^ 
p.iiifttiMr.xl III X f f .jm t l.c cuii t iJiiLs. ■•( f; . 
Go t ij cjcfdr e=5 II I'f c^rr.- is not eel.. 
Uij to 4dJt ess n it zo-ro is iiot tiet . 
Go I D Addresfi n. 

Put lie-: t memory ronterit £- ir. i in X, 
Pill con t »?nt % of diddresE n in X . 
Put contents o+ X ^t c>dijrce& ri, 
fTopv c: on tents of A in to X a^ Mel J . 
Add ne>; t memor y contents to X . 
Siibtr AC t ne--.: t memory cwnt pnt a tfom X . 
Flit the contents □* the addref^s 
(lUfTibered m X in tht^ A > eqi s.t er . 
Put fiLKnbeF in A jt thp iiiJdr e^s i ti X. 
Add the number dt adLire&s X to •'). 



' r> ' represents Any value betMeen oind ?*?• 

Tabla2. Easycod* Infttructlons 

(8K varaion). 
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li you consult Table 2 you will see 
that instaiction value 1 means 'LOAD 
A;n'. This instruction takes up two 
memory locations (HALT only took ■ 
one). The first location contains the 
instruction (1). The following location 
contains the data to be loaded, so 
that the sequence of values 1 2 will 
cause the value 2 to be loaded into 
the A register. Use the STORE 
command to put the values 1 2 into 
memory from location onwards. 

When you RUN from location 
you will see the 1 Gosh, then the 
value 2 will appear in the A register. 
The computer skips over location 1 
(because it is dato — part of the 
LOAD instruction) and flashes the 
contents of location 2 — the HALT, 

ASSEMBLER 
MNEMONICS 

It may seem rather pomtless to use 
these odd names; 'HALT. 'LOAD A;2' 
and so on when we can't type them 
into the computer — we have to use 
the numenc values from Table 2 
instead. These names are called 
'mnemonics', (pronounced 
nem-on-iks) which is Greek for 
'reminders', and they're designed as 
an aide memoire for programmers. 
The idea is that a sequence such as: 



LOAD A; 1 

ADD;1 

IUMP;2 



makes a little more sense than the 
string of digits 115 110 2! Most 
machine codes use mnemonics, 
although they vary in detail from one 
processor to another. Easycode has 
20 instructions (more will be added 
later) and consequently 20 
mnemonics, listed m Table 2. Each 
mnemonic has a name (eg HALT, 
ADD, LOAD) and most of them have 
'arguments' too — these describe 
what information is used and where it 
is stored. The instaicbon LOAD A; 1 
conesponds toA=l in basic. ADD 
A; 1 corresponds to A=A* 1 . JUMP;2 is 
similar in effect to GOTO 2. 

The format of Easycode 
mnemonics is very similar to that of 
real machine code, although a semi- 
colon is used as a separator rather 
than a comma smce BASIC INPUT 
statements tend to do strange things 
with commas! 

Enter the sequence 1 15 1 10 2 
into memory from location onwards. 
When you RUN the program (starting 
atO once again) you will see 
Easycode counting in the A register. 
Watch the display as Easycode 
counts. Locations 2 and 4 flash 
alternately os the instructions within 
are executed- The value in the 
program counter P changes back 
and forth, and the accumulator A 
counts up steadily. You can pause 



the program at any point by pressing 
■ the SPACE key. Type an end of line 
to stop the program or any other key 
to re- start it. You can use the end of 
line key to halt the program 
immediately if you wish. 

USING THE FLAGS 

If you let the count continue all the 
way up to 99 you will see something 
interesting happen. When A contains 
99 and 1 is added there isn't room for 
the value 100. Easycode, like all 
machine codes, simply throws away 
the extra digit — the one — and 
counts from again. The computer 
has, in effect, said '99 plus 1 isO, 
carry 1'. When the value in A 
'overflows' the cany flag becomes set 
— the display shows 'C=Y'. 

The carry flag is set whenever an 
operation results in a carry or a 
bonow- When you try to SUBtract 1 
from you will get 99 bonow 1 — the 
register will hold 99 and, once agam, 
the carry tlag will be set, 

The zero flag works m a similar 
way, but it becomes set whenever an 
operation ends up with a zero value. 
The zero flag also becomes set if you 
LOAD or STORE a zero. You can use 
this rule to test for any value — just 
load the number to be tested into the 
A register and subtract the value you 
want to test for, li the zero flog is set 
after that, you know that the number 
and the expected value were the 
same. 

This flag- waving is all very well, 
but it seems rather pointless unless 
we can tell the computer to make 
decisions depending on the value of 
the flags. There are two Easycode 
instmctions which test the flags, doing 
different things depending upon what 
they find. The instmction JUMPNZ.n 
tells the computer to lUMP to the 
instmction at locabon 'n if the zero 
flag is NOT set. If the flag is set. the 
computer simply skips over the 
lUMPNZ and performs the 
subsequent instruction. The 
IUMPNC;n instruction is identical 
except it tests the carry flag, 
producing the effect of the BASIC 
line: 

IF C <> Y THEN GOTO n 

It is easy lo see how we can use this 
instruction. Change the contents of 
locations 3 and 4 to 10 and 8 
respectively. Now our program is: 

0: LOAD A, 1 

2: ADD A; 10 

4; IUMPNC;2 

t 

The program now counts quickly until 

it tnes to add 1 to 9 1 — the result is 

1, cany 1, and the program 'falls 

through' to location 6. 



One important thing lo note about 
machine code is that the computer 
can't tell instructions and data apart 
This can have unfortunate 
consequences if you jump to the 
wrong address, Consider what would 
happen if we started the above 
program at address 1 instead of . . , 

The computer finds a 1 at address 
1 . It treats that as LOAD A; next, and 
puts the value 5 (the ADD instruction!) 
into A. Next it finds the 10 at address 
3. 10 means JUMP, so it jumps to the 
address in location 4 — an 8. Notice 
that we've ended up with a 
completely different program, simply 
by starting one location later 

Sometimes mistakes like this will 
cause the computer to try to execute 
a non-existent instmction — a value 
greater than 19, for instance. A real 
computer might do unpredictable 
things in such a circumstance, but 

Easycode can detect the enor. If you 
make that kmd of mistake Easycode 
stops and prints the message 
'Unknown Instruction'. 



THE PROGRAM 

Program 1 is a complete listing of the 
Easycode program for the TRS80 
Model 1 or Video Genie. The only 
requirements are a display at least 32 
columns wide and 16 lines long, 8K 
of user memory, stnng handling, and 
a BASIC which allows characters to 
be read from the keyboard as a 
program runs. The expanded version 
of the program requires a 40 by 16 
display (or larger) and 16K or 
memory. 

The listing is extensively 

commented, so that it should be 
possible to work out the effect of 
instructions from the listing even if you 
can't make it out by expenmentation. 
Some parts of the program have 
been deliberately kept simple rather 
than efficient, on the grounds that it is 
better to have a slow correct program 
than a speedy one which doesn't 
always workJ 

Once you have converted the 
program it should be easy to identify 
the parts which can be accelerated. 
Keep to the same line numbers as 
much as possible, since this will make 
it easier to add the extra instrucbons 
introduced in Part 2. On a Spectrum 
or ZXBl you should divide all of the 
line-numbers by five. 

Next month we'll explain how to 
convert the program for almost every 
machine under the sun, and we'll 
demonstrate multiple precision 
arithmetic, input-output and even 
moving graphics. Don't miss it! 
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EASYCODE PART 2 



Simon N. Goodwin 



Now that we've presented the Easycode program for one machine and explained the 
basic principles, here's how to convert it for a variety of machines. We also have the 
first of our example routines. 



In lost month's article we introduced 'Easycode', a program 
which lets you ieam machine code (almost!) as painlessly, as 
if it were BASIC. If you missed that article you need a copy of 
ftie listing from a back-issue of the magazine. This month we 
explain how you can convert the program for other machines. We 
also press on with example programs, including arithmetic 
routines and even memory- mapped graphics! 

EXAMPLE PROGRAMS 

Last month we experimented with some tnvtal Easycode 
programs. This issue we use most of the instructions, and explain 
how to crack one of the major problems of machine code 
{Mogromming — the storage of numbers larger than the computer 
can fit tn a single location, 

Program 1 performs a common task — it adds up the values in 
locations 50-59. and stores the total in location 99 (at the end of 
memory). We've changed the format of our Easycode listing so 



that It closely resembles the format of a 'reaf machine-code or 
assembler listing. The program is divided into four vertical 
columns. The first column (0, 2, 4, 5 etc) is the 'address' at which 
the instnictlons are stored. Program 1 occupies 16 locations, since 
it starts at address and goes on to 15 (the JUMP at address 14 
uses two locations). 

The second column contains the data which should be stored 
in each locatioa The instruction code to load the 'A' register is 1 , 
hence location contains 1 . The value to be loaded is 0, so 
location 1 contains — and so on At the end of the listing, the 
code 10 con-esponds to a JUMP instruction The 4 following it (in 
location 15) tells the computer where to JUMP to. The numbers in 
the second column (1,0, 11 , 20 etc) ore the ones you enter using 
the STORE command 

Column three contains the mnemonic form of the instructions. 
A computer can't understand mnemomcs directly — they aie just 
shorthand for human beings. You can get programs ~ known as 
asserablers — to convert mnemonics into the corresponding 
numbers. The expanded version of Easycode contains a buOt-in 
assembler, as well as a disassembler which performs the reverse 
function, taking ^e numbers stored in memory and converting 
them into their mnemomc equivalents. The program lines needed 
to add these features to Easycode will be published in next 
month's CT. 

The last column m the listing contains 'comments'. These are 
English phrases added by the programmer to make the purpose 
of the code more clear to sortieone reading the listing. Comments 
are similar to REMS in BASIC; they ore ignored by the computer. 
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TABLE 1 




1000 


CLEAR command 11000 


RUN command 


3500 


Scan keys 11500 


Fetch instruction 


4000 


Clear Ime 12000 


SAVE command 


4500 


Accept numbet 12500 


Accept file name 


5000 


Update registers 13000 


LOAD command 


6000 


Position cursor 14000 


HELP command 


8000 


Display number 15000 


QUIT command 


9000 


Draw full screen 16000 


STORE command 


10000 


Accept command 16500 


Update memory 


10500 


STOPPED message 20000 


Execute mstruction 


Easyco 


ci« routin**. 





ADDING FOR BEGINNERS 

The first two lines of Program 1 are straightforward STORE th» 
program and RUN it from address 0. You see the value loaded 
into A, and 50 loaded into X. Both regjstera are being used Jor 
their designed purpose — the A register contains the running total 
and the X register is used as an index, 'pointing to' the addreti trf 
items in the list. This is where the instructions using *@X com« *n 
useful. They fetch, add or otherwise manipulate the contento of 
the memory location which is numbered in the X register. 
- If X contains 3, LOAD A: @X will fetch the contents of locoEtton 
3, The instruction would be read 'Load A with the value at 
location X. The third instruction adds the contents of the location 
pointed to by X, The X register is being used rather like a 
bookmaiic. keeping track of the place the computer has reached. 

It's all very well having the X register marching through 
memory, pointing accusingly at everything it passes, but bow do 
we tell when we have reached the end of the list? We know ttwt 
the last Item is at address 59, so we must stop once X reaches 59, 
Most processors have an instruction which 'comporefl' a regittat 
writh □ value. These instructions work by subtracting the reqiJlied 
value and then setting the flags according to the result. Jn 
Easycode we have to use an explicit subtraction (Mping out the 
previous result in the process), but we shall see tfiat ftiis ii not a . 
problem. 





TABLE 2 


U,K 


Miscellaneous integer counters etc. 


ROW 


Cursoi vertical address 1 (top) • 16. 


COLUMN 


Cursoi horizontal address 1-32 


T$.T1$,T2S 


General purpose stnngs 


P 


Program counter 


ABRT 


Non zero when program has been aborted 


CARRY 


Cony flag 


ZERO 


Zero flag 


R(0) 


Accum ulator( register 0), 


HI) 


Index legister (register 1) 


M(0) . . M(99) 


Memory array 


Variable list 





To test for the value 59 we merely take 59 away frc^nthe 
contents of X, with a SUB X;59 instructioa If the result Is not leto, 
X does not contain 59; we must go on to the instruction at tooottcm 
12, If the result IS zero, Easycode ignores the JUMPNZ (jump if not 
zero) at location 7. and continues to the next instruction, at 
location 9. This stores the value in A ' of locatiai 99. The progiom 
halts when the C code at location 1 1 is encountered 

Meanwhile, il we're still trolling along the list, we've carived at 
location 1 2 with a problem on our hands. Depending upon your 
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CONVERTING EASYCODE 

The program was deliberately wntlen lor easy conversion to 
run on other computers. As much as possible, machme- 
dependent routines to read the keyboard, position the cursor 
and so on have been collected in one place. 'Easycode' uses 
a subset of the BASIC language — it will run on almost any 
computer v^th BASIC, a TV display and the facility to handle 
stnngs oi characters. 

Table 1 lists the routines which make up the Easycode 
interpreter. More than half of the routmes should ain without 
changes on just about any BASIC computer. In this section of 
the article we will go through the • routines one by one, 
explaining their purpose and giving examples of the 
conversions required None of the REMS {which include 
comments introduced by an apostrophe) need be entered. 

There are five points which should be observed throughout 
The listing assumes that the program is running on a computer 
which handles floating-point (decimal) numbers (a TR&80 or 
Genie). A few systems only recognise integers (whole 
numbers) The program will work on such machines, so long as 
they have the other required features, but INT expressions, 
used to round-down numbers, should be ignored; mteger 
BASIC always rounds down. Lines marked 'P.P. BASIC only' 
may be omitted on integer-only systems. 

The CLS command is used to clear the screen at various 
points. If your computer doesn't have a clear screen command, 
you can probably simulate it by pnnting a special 'clear 
character or group of characters. Aitematively you can set up 
a *CLS' subroutine which calls the 'clear line' routine (line 
4000) for every line of the display. 

The next three 'general' points are addressed mainly at 
users of Sinclair computers, although they may concern a lew 
other users. The program uses the format IF expression THEN 
line number. This may have to be entered in the form IF 
expression THEN GOTO line number. 

Easycode assumes that anay subscnpts start at zero. If the 
instruction PRINT R(0) gives an enor message, you'll need to 
add one to the subscript of every array reference m the 
program. In retrospect, this stems from bad design — in the 
interests ol portability the original program should have 
ignored the existence of the zero subscnpt. 

Table 2 contains a list of the 14 vanable names used. 
These all differ in the first two characters, and they do not 
contain BASIC words (hence ABRT not ABorT) li your 
computer doesn't allow stnngs to hove names or more than 
one character you must rename Tl$ and T2$. If necessary, 
enter a LET statement at the start oi every line which presently 
begins with a vanable- name, 

A MODEL PROGRAM 

The tirst tew lines of the program are used lo set up an 'empty' 
computer model. They are consequently used whenever the 
program is first RUN, and after a CLEAR command, which 
works by startmg the program again from scratch Line 1000 
will not be needed on most computers — it sets all vanables to 
zero and reserves space for up to 100 characters of strings. The 
DIM statements in line 1010 must be altered, as descnbed 
earlier, if your computer does not allow zero subscnpts. 

The SCAN KEYS subroutine will run exactly as listed on a 
Spectnjm or Dragon. The INKEY$ function returns an empty 
stnng {"") if no key has been pressed; otherwise it returns the 
character corresponding to the key. Note that the end-of-hne 
key IS assumed to produce CHR$(13), and the space key is 
expected to give CHR$(32). The key feature (sorry) of this 
routine is that it should go on without waiting i! no key is 
pressed. II you don't know how to do this on youi computer. 



consider using joystick control (usually by a PEEK) instead of 
the keyboard. 

The CLEAR LINE subroutine should not need changing. It 
simply positions the cursor, pnnts 32 spaces, and puis the 
cursor back at the start. 

ACCEPT NUMBER, from line 4500 onwards assumes your 
computer uses the ASCII character set If necessary replace 
the colon in line 4510 with the character which follows "9" in 
the sequence recognised by your machine. The action ol line 
4510 IE to reject any entnes which do not start with a digit, A 
simple greater-than-or-equal-to-"9" test is unsatisfactory since, 
by convention, the stnng "9" is greater than "9" 

The UPDATE REGISTERS subroutine is straightforward. 

POSITION CURSOR tells the computer that the nect 
character to be pnnted should appear on row ROW and 
column COLUMN, assuming that the top left position on the 
display is ROW I, COLUMN 1 . On a Dragon use PRINT @ 
COLUMN+ROW*32-33. "", A BBC Micro will require PRINT 
TAB(COLUMN-l, ROW-1);. The Spectmm version is PRINT 
AT ROW-I,COLUMN+l,. Atan owners should use LOCATE 
COLUMN- 1. ROW-1. if you've got a terminal which 
recognises the VT52 escape sequences PRINT 
CHR$(27);"r:CHRS(31+ROW), CHR$(31+COLUMN). 

should work, il the woist comes to the worst you may have to 
HOME the cursor to the lop left comer and pnni 'down' and 
'nqhf characters repeatedly. 

Next we come to the DISPLAY NUMBER subroutine, which 
starts at line 8000, This pnnts exactly two characters which 
indicate the value ol N, from lo 99. The only tricky thing here 
IS making sure you output two characters (one of them a 
space) for values less than 10. If your computer allows PRINT 
USING, use iti 

The DRAW FULL SCREEN routine contains only one 
potential pitfall — the multiple NEXT statement in line 91 10. 
Some computers will require separate statements for each loop 
(NEXT ]amd NEXT ROW). 

The subsequent three routines, ACCEPT COMMAND, 
STOPPED and RUN COMMAND, should not need changing. 
FETCH INSTRUCTION contains a single odd statement - the 
ON . . . GOTO at line 1 1680. Space has been left lor Ihis to be 
wntten out m full: 

IF 1= I THEN GOTO 20000 
IF 1=2 THEN GOTO 20100 etc. 

But a computed GOTO would work as well: 

GOTO 19900+{100*1+400*{I>16) 

so long as an expression such as 2> j pnnts as T on your 
system (if it returns '—1', replace the second plus in the 
computed GOTO with a minus). You may have to use a mixed 
approach if your BASIC won't allow long lines. 

The SAVE and LOAD subroutines occupy lines 12CO0- 
13240. These are perhaps the most difficult part oi the 
program to convert successfully. If in doubt, fix these last. The 
routines merely SAVE and LOAD the anay M() under the 
name in T$ Most computers require that you OPEN and 
CLOSE the data file before and after manipulations. 

On a Spectaim you can get by with just SAVE T$ DATA MO 
and LOAD T$ DATA M(). Put •"m",!, before T$ to save and 
load to microdrive (through cassette is almost as quick'). Most 
other computers use PRINT and INPUT to access hies. The only 
difference Irom normal (console) access is a 'channel number' 
which tells the computer to use the cassette or disc, rather than 
the display. On the Genie '—1' is the channel number and '£' 
(typed as a hcsh) identifies it. 

The rest of the program should be easy to convert, since if 
uses very simple statements. If your computer doesn't 
recognise PP^NT, IF, GOTO, GOSUB and assignments, you're 
in real troubie! 

NOTE: The programs at the end have been converted for the 
SEGA 
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you'll find the next *xpknv3tion very 
Him};^ or very dtrriom — pleoae b«ar with us in eiflier case. 
i Wb«invr«'r«<ibh«ribinMl2, re^er Xcc£rikziiis59le»8thcHi 
A» adctnM of dw pldo* Whttm w« got our kwt value from; or 60 
IMB tfian the oddrew ofdw vcdue we ne«d next At iiret sight this 
to a hold problem to sort out, be<xme« we must have taken 59 
^pnroy from X wh«n #im« wets less than 59 tn X to Btoit wltfd We 
oan't rtore negative nmnbeis in Eosycode. so whcrfs the reaulf? 

'You can giieas ft* onswei ll you remember the way the Cany 
flag vroilu. 11 the number goes over 99, Eosycode sets the Cany 
fiog — coirytng 1 00, il you bite — and leaves the remainder in the 
register. Hence 69 + 42 gtvee 1 1 , cauy one. So What is 50 — 59? 
The answer, cKcordlng to EfBycode and (in principle) every other 
micro machine code, is 91 , borrow one. The sum is treated as 
150 — 59. Thla may bring backmemoriea ol school long-diviflion 
— if it does, aorryl 

This rattier arithmeticd explanatUjn he* a pcant (in case you 
wer* woivderinqfl. SlrK:e 'cany and 'poncetf' work exactly the the 
some way in machine-code, it follows that, whatever nurnber you 
start with, you'll get the some number back if you subtract, and 
then add any other number. This is obvioaB in normal aiithmetlc, 
where negative numbeiB are allowed, bulit seems odd when you 
caneay; 

so-sg-gi 

91+60-51 
The ADD on line 12 hoe the eaect of setting X to the value It had 
before the subtract, plus one. So we didn^t lose the result during 
the subtract, after all. 

Now X U pointing to the next value to be addvid to the totaL 
We ccn go book to iw AI^ A;9X ittftxuotlon. u^ng a simple 
IUMR4. 

FlAas 

r^Ond |HJN fli» pro^fton uWil you* re.tiappy that it works. Put 
dtfe^rt valuw in k)c«ten« 50 to 59 lo t«t it Hopefally you're not 
Sagging (tanj) yet, because these's dnolfa^ pioblein to be 
»Dlv«d What Kcf^«ra if tt^e total is mom rat 99? 

We can't ftOM tnah a total in &e A register, or tn ohy on« 
rpemory location, since there'* anh room for values between 
and 99. But vfhot I hear you whlsmn^ m the dark, is to stop us ' 
uslrig two memory locOtloM? AAer all, we con only represent 
vaJues between and § wtth a single digit but that doesn't stop 
us sticking ^m kKjfe/Amt m dumps to mcdoe tax demoiKJs and 
such-like. 

Wecancounfupto9999ifweu«etwolocatIonB, one for the 
'hufidredi^ and or» foe the 'units'. Since 1 IndividuCii locations 
can cnly contain separate nuinbera ttwrt add up to o maximum of 
990, two locations wtil be j;rfenty. Program 2 solves fee problem- 
Location 96 conteibu fte hundreds and location 99 the units of 
ftte result While ttie ptogroin runs, the units are stored in the A 
register. STORE and lest this program too 
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TRANSPUT 

Our find programming topic this month concent what is known 
as 'memory- mapped I/O'. I/O stands for InpuVOutput, alias 
communication between the computer and someone or 
something outside. Followers of the language Algol 68 tried to 
replace this rather ugly term with the invented word 'tianspulf, 
but sadly, it didn't catch on (rather like Algol 68!). 

One of the biggest problems for the machine- code 
programmer is VO — you can't just say INPUT or PRINT and 
watch words magically appear on the screen. Most modem 
computers use memory-mapped I/O, which means that they 
commuriicate with the outside world just as they do with their own 
memory — by storing and retneving information at certain 
locations. ^ 

The electronics to drive the video display d most micros is 
quite simple. In efiect a set of memory addresses are cormacted 
simultaneously to the computer (which can read and write to the 
addieeees) and to electronics which drives the TV or monitor. The 
electronics scans through the memory 50 times a second, 
producing a pictxiie signal lor the display. The display is 
produced by turning a 'dot of light on and off as it scans across - 
the picture, so that if the dot is on the screen glows and if it Is ofi 
the screen b dork. 

Imagine that the processor stores a selection of numbers in tiie 
first half of the display memory, and zeros in the second hall 
Depending upon the exact electronics used, this will produce a 
blank screeri at the bottom and a jumble of dots or characters at 
the top. From this you can see that the more memory you allocate 
to the display, the more dots you will be able to control and 
hence the higher the resolution of the display. So far we've 
assumed a Tea/No' value for each dot If you use still more 
memory you can add intermediate values to give the effect of 

The Eosycode simulator takes memory mappmg to its logical 
conclusion — all of the mempry is displayed, all of the time. To 
move a dot across a computer screen you move a value through 
the screen memory, wiping the old position before each move. 
We con produce moving graphics in Eosycode (slowly), by 
moving a value tiuough memory in exactly the same way. 
Program 3 performs this task, moving the value ' 1 ' along the 
bottom of the screen. 

STORE Program 3 and play with it Slow though it is, it 
demonstrates exactly the technique used in your favourite arcade 
games. Of course, most shapes are made up of more than one 
point, b\jt it is easy to see how a group of points could be made to 
move together. When you get bored with the horizontal 
movement change the value at address 1 to 22. and store 1 1 at 
addtess 17. The graphics should now move diagonally. See if you 
can work out how to make them move up instead of down. 

ENDOFPART2 

This month we've shown how the Easycode instructions work If 
you intend to leam the prmciples of machine code, it is important 
that you experiment with the instruction set Why not write a 
program to multiply the value in the A register by the value in X? 
You'll need two locations for the result As an experiment in 
indexing, write a program to count all the occurences of a 
specific value (say, or 1) in Easycode memory. Example 
solutions will be presented in the next issue of CT. 
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EASYCODE 

Ai *\aC A W Simon N. Goodwin 

In this article of our Easycode series 
we let you talk to your computer in 
English (almost!) and show you how 
to have stacks of fun. 

This month we'll add a number of extra leatures to the 
Easycode language. The new features make Easycode 
even more like 'real' machine-code — in fact the only 
maior diiterence left will be the lack of binary operations, which 
we will explain next month 

The new program lines also give you a small 'assembler' and 
'disassembler', via the added commands 'ASM' and 'DIS" These 
locilities ore not as versatile as the leal thing, but they're still 
useful. They're also easy to use 'interactively' — you can chop 
and change your program clearly and iast. 

The lines in Listing 1 are not a complete program —they are 
EXTRA lines to be added to those published in the March 1984 
CT. This means that we can pnnt a program which is longer than 
we could otherwise, but it isn't very helpful lor intermittent readers! 
Back issues can be obtained using the coupon on Page 76. 

CONVERTING THE PROGRAM 

The extra lines restrict the tanqe ol computers on which the 
program can run, since they require a few extra features. String 
anoys are needed to run the assembler and disassembler The 
stock disploy requires a screen 40 columns wide, although it 
could be programmed horizontally if more than 16 lines are 
available The listing is tor the TRS-80 Model 1 or Video Genie 
The complete program requires 16K of BASIC memory. 

Most of the program is fairly easy to convert, bearing in mind 
those restnctions and the notes published last month. You may 
need to alter the DIM statements on line 1030 to dimension each 
variable separately and to iell the computer how long each string 
may be (eg DIM D$(MAX, 10)), 

Microsoit BASIC sinng handling is used, as on Apple, 
Commodore and recent Acorn machines Line 18520 compares 
D$(I) with the leftmost characters of T$ (making sure that the 
number of characters is the same in each) If your BASIC uses 
fixed-length stnngs you will need to toke trailing spaces into 
account. The other tncky line is 16535, which setsTlS to contain 
all the characters in T$ after position '1'. 

The '+' operator is used to stick strings together, so that PRINT 
"Ea5y"+"code" gives: 
Easycode 

This will work on most computers other than Atans. where devious 
use of stnng- slicing will be needed. Stnng '+' is only used m 
Easycode to make error messages, so il should be possible to 
make the program work without the feature — so long as you find 
another way of reporting problems. 

The DATA in lines 30000 onwards is copied into the arrays 
D$() and E(). If your computer won't allow READ and DATA 
siatements, you must use 52 assignments instead (my 
sympathies). 

Listing 1 has been automatically mixed back into the original 
program. The combination worked at once, so Ihe listings should 
be compatible unless our layout department have scalpel 
problems' If you type m the lines and they won't work, please 
check that you've made compatible changes in both parts of the 
listmg, and you haven't mistyped any hne-numbers 

USING THE ASSEMBLER 

The assembler converts mnemonics like 'LOAD' and 'HALT into 
the numbers recognised by the computer, You type in relatively- 
readable lines such as 'ADD A;7' and the routine generates the 
values '5' and '7'. The numbers are put into memory (you can see 
them appear, |ust as with the 'STORE' command) and you can 
type another line 



The main difference between the ASM iaciliiy and the 
assembler oi a real computer is the lack of 'names' for locations 
and values, A real assembler would allow you to give a location a 
name, such as 'TOTAL', and then lefei to i1 by name STORE 
A:®TOTAL. This feature is missing from ASM as it would make 
the routine slower, less portable and holder to use (you'd have to 
check lor names used before they were identified, for instonce) 
Since Easycode only uses 100 memory locations that lack of 
naming is not a major drawback. 

To use the assembler, type ASM in response to the Commond 
prompt. You will be asked where you wanl to store code. |ust as 
with the STORE command. Enter a sensible address or '100', if 
you want to chickeri out As you type the mnemonic lines, one by 
one, the computer stores the appropnale codes. To leave the 
assembler type '100' instead of a mnemonic 

There are four possible error messages when you use the 
assembler- 'Unknown' appears if the computer can't recognise the 
mnemonic from its list of 26 possibilities. If you entered ADD B, 1 
you'd get the message, since there is no'B' register. You'd also 
get it if you typed TWIDDLE THUMBS as there's no Easycode 
instruction to do that. The only special word you can use is HELP, 
which pnnts a Lst of the mnemonics allowed. If you have trouble, 
use the HELP command to see the format requited — in 
particular, avojd using extra spaces. 

The message 'Too long' appears if the computer understands 
the first pail of an instruction but didn't expect the rest. Trailing 
spaces or words may cause thai message If you try to use a name 
instead of a number, o: type a silly value, the computer comments 
'Inconect number. Nothing is stored if you make a mistake- You 
are asked to type the line again. 

There is one obscure enor message. If you try to store an 
instruction which needs two locations at address 99. the computer 
displays 'Only one memory space lelt'. 

THE DISASSEMBLER 

The disassembler converts numbers back into mnemonics — Ihe 
opposite of the assembler. Type the command D!S and then tell 
the computer where in memory you wish the disassembly to 
begin. Each locotion will be examined and Ihe appropnate 
mnemonic pnnted. If Ihe location contains a value which does not 
correspond to on instruction Ihe value is assumed to be data, and 
Ihe mnemonic 'Data code' appears. 

The disassembler pnnts the value and name of each 
instruction. Each disassembly consists of 1 3 lines, after which you 
can opt to stop or continue If you continue there is a deliberate 
small overlap ol addresses. Expenment with the disassembler to 
see how it works. Try disassembling data as well as programs, 
and see what happens il you start the disassembly in Ihe middle 
ol a program or instruction, This shows how the computer can 
produce strange results if programs are RUN itom odd places. 

SAME OLD PROBLEMS 

Last month we set a couple of problems for keen programmers. 
Listing 2 shows a solution to the second, and simpler, problem — 
counting the number of occurences of a given value in memory. 
Hopefully you didn't have much trouble solving this. The 
comments at the side of the listing should make it fairly easy to 
understand, especially as it is quite similar to the 'adder' program 
published last issue. 

You might like to try out the assembler by entennq the 
mnemonics of Listing 2. Disassemble it to make sure you've made 
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no typing errors, and then RUN it from location 0. As wntten it 
searches locations tc 99 for the value ! . The total is stored 
(eventually!) at location 99. 
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The other problem — multiply A by X — was rather more 
dilhcull especially since the 'real' machine code solution involves 
shifts and binary onthmetic, which are not available in Easycode. 
The problem v^os set so that we can demonstrate how the new 
instructions introduced this month are uselul — next month we will 
compare the refined Easycode with 'real' solutions for the Z80, 
6502 and 6809 microprocessors. 

Listing 3 uses only the instructions explained so lar to perlonn 
the multiplication. The result is stored m locations 98 and 99 (the 
biggest value, 99 x ■^, is 980 1 ) and locations 96, 97, 98 and 99 
are used for temporary results. 

The approach used by the program is quite simple. The value 
in the A register is added to itself repeatedly. Each lime, one is 
subtracted from the value in the X register. When X reaches zero 
the multiplication is finished. The program consequently doesn't 
do multiplications involving correctly, but that would be easy to 
Hx 

There are a number of more senous complications. The first is 
thai we can't add the old value oi A to the ainning total very 
easily without making the program alter itself (using ADD 
A;number and 'plugging' the number into the program). Such a 
solution IS rather messy and prone to error, Temble tfiings happen 
if the wrong location is accidentally 'plugged'' Instead we store i 



program line' — in BASIC this would be the bne number, while in 
Easycode it is the value ol the P register. 



Ol 


1 


2 


LOAD A|2 


first No. to Da iiHjltipl»«a 


2i 


1 1 


2 


LOAD Xt2 


SBCond nuinCi*'" it^wnc» 2 « 2'} 


4i 


1 J 


98 


STORE X\i')B 


Saw V t vmpor Ar i 1 y -y' 


61 


3 


99 


STORE A|999 


6a v> A too 


Si 


1 1 


9B 


LOAD X|98 


Point X at tn* old X v*lu« 


lOi 


7 




SUB At«X 


Comp^rv thtt old K with A 


111 


e 


19 


JUMPNCi 19 


Jump I* A mMcm^au tha □!<] * 


I3l 


2 


98 


LOAD A|S98 


Put old X in A 


13l 


12 


99 


LOAD X|999 


Put old A in X (mHAR) 


I7i 


to 


23 


JLJMPi23 


C*rr V on 


19l 


2 


99 


LOAD A|S'99 


RsBtors A 


21 ■ 


12 


96 


LOAD )C|S9e 


Rvatora X 

Multiply aldrts Kerc 


23i 


3 


9& 


STORE A|39A 


Sdve A, to be added repeatedly 


25 1 


1 


..■ 


LOAD AsO 


Fetcfi ;»ro to. . . 


27i 


3 


98 


STORE A|99B 


Clear the 'hiindred*' total 


29 1 


* 


96 


LOAD At£9b 


Restore A 

The 'adding loop' start* here 


31 ! 


lb 


1 


sue X( 1 


Count one leca loop required 


33 1 


9 


38 


junptoj) 38 


Plug on unleks we've reacned 


3Si 


3 


99 


STORE A(*99 


Store the unite 


37 1 







HALT 


That's all 'oiks 


38 1 


13 


f7 


STORE Xii97 


Sjvo the count for later 


40i 


11 


9* 


LOAD X|96 


Point X at the muUlpller 


«ri 


19 




ADD a-.i'. 


Add It to the total v^t aqai n 


43l 


8 


55 


JUMPNCtSS 


Jump If it fitted in A 


43; 


_> 


99 


STORE A:i99 


it overflowed, save remainder 


47i 


2 


9B 


LOftD Aij9e 


FolLh "hundreds" to ( ^r 


4Vi 


5 


1 


ADD A: 1 


Ono more hundr ec] 


31 1 


3 


9fl 


STORE A|39B 


Store the new 'nundrede' total 


53i 


2 


99 


LOAD «sJ99 


Fetch remainder lunits !. lens) 


55 1 


i:^ 


97 


LOAD X 1 ,B97 


Gel the coiJitt aqai n 


37! 


Ki 


?] 


JUMF ! 31 


Uu t'lC ne,';t add i* necessary 


Listing 3 


A crude multiplier. 





the number at location 96 and point X at it, using the ADD A, @X 
instruction. In turn, we then need to use location 97 to save the 
count which was m X 

Whenever we add a value to that in A we must check that the 
total wasn't more than 99, otherwise an overflow (carry) has 
occurred and we should add one to the 'hundreds' figure at 
location 98. Look at Listing 3 if this doesn't make sense. 

There is one more potential problem. The program so lar 
would calculate 3 x 9 far more slowly than 9x3, since the first 
sum, would involve nine additions and the second only three 
(assuming the second figure was loaded into the X legister). This 
snag is easily avoidable. The program automatically compares A 
and X at the start and makes sure that the lowest value is in the X 
register, by swapping A and X if need be, 

RUNNING DRY 

If this program looks rather daunting, don't worry . WE couldn't 
make it work for a while' Table 1 shows a good way of testing 
programs like this. The technigue is called 'dry running', and it is 
rather like running the program on poper before you let the 
computer at it. Dry running is a very useful skill as it can be 
applied to almost all languages. 

To dry run a program you start by heading a sheet of paper 
with the names ol all the vonables or locations which ate altered 
by the program. In the example these are the registers A and X, 
plus locations 96 to 99 which are used by the 'multiply' program. 
Dry runs ore best for testing programs with lew variables — often 
true of machine code. You need one extra column to record the 
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Work your way through the program, using a new line every 
time a value is stored. Wnte down the value oi P as you go along, 
as a 'key' The lirst line stores 2 in register A. hence the '2 in the 
'A' column. The next line stores '2' in register X At any time each 
current value can be seen by consulting the lowest entry in the 
column concerned (if there is no entry the value is unknown). 

This technique isn't a good way to test o large program (you'd 
need a sharp pencil and very big pieces oi paper) but it is ideal 
for testing short complicated sections Dry run Listing 3 (you'll 
need 20 lines) and compare your results with Table 1 , 

THE JOY OF STACKS 

II you've 1>ped in the new lines you will hove spotted the extra 
column and reqistei on the display by now! The column is the 
'stack' and the new register's' is called the 'stack pointer'. The 
stack IS an area of memory inside (he computer (it could use some 
oi the 100 locations but we chose not to. to ovoid confusion). 
Unlike most memory, you can't put values into the stack willy-niily 
- you have to use special instmctions. 

The stcck works — as you might expect from its name — 
rather like a pile of values. You can 'PUSH' numbers onto the 'top' 
of the stack or 'POP them off the top (PUSH and POP are the 
rather odd programmers' words lor put-on-stack and take-irom- 
stack respectively)- This kind ol stack (there are other, less 
common kinds) is called a 'LIFO stack — LfFO stands ioi Last In. 
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Firsl Oul, and it means simply that the lasi value PUSHed is 
always ihe first one POPped. 

Since you can only access the 'top' item on the stack, the 
computer must have some way oi knowing which item is top This 
IS where the slack, pointer comes m — it is on index register, 
rather like X, but it has the special pioperty thai its value lalls by 
one whenever it is used to store someihing. Some computers work 
the opposite way round, but the pnnciple is the same. The 
T1-99/4A IS the only well-known micro without a stack. 

If you look at the 'multiply' program you see that we olten have 
to'save' and then 'restore' a register value. A stack is an ideal 
place to do this. Stack instnaclions can be short since they don't 
need an address (the stack pointer provides one). You can PUSH 
and POP numbers at will so long as you always retneve them in 
the opposite order to that in which you saved them, 

Listing 4 is o version of the 'multiply' program which uses 
PUSH and POP instiuctions to save and restore values. Notice 
that it is shorter and (hence) quicker than the onginal. It should 
also be easier to understand. If this explanation has seemed 
rather dah, type in the program and try it out. Look closely at the 
way the 'swap works now. 
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STACKS OF PROBLEMS 

Stacks can cause crashes' When you use Easycode the computet 
pnnts o messoge il you try to POP a value when S isO — the stack 
is empty. Another message appears if you try to PUSH when S is 
10 — the stack only has room (or 10 items. On the popular small 
micros there is no check lor over- running, or POPpmg values 
when Ihe slack is empty — the computer |ust overwrites the 
location after the stack space, or fetches whatever is stored before 
ihe stack space. This is usually a disasler. Slacks are useful but 
Ihey are also the cause of much confusjpn, so ihe mote you 
experiment in the 'safe' environment of Easycode, the betlet, 



lERAWTFOS ESREVER 

Unlikely though il may sound, you will often need to reverse the 
order of values in machine-code programs. One example is the 
slandord woy of printing numbers, which involves successively 
dividing by 10 and pnnting the remainder Tins, unlorlunately, 
gives the answer backwards, 

236/10 = 23 remainder 5 

23/10 = 2 remainder 3 

2/iSi = 9 remainder 2 

but il IS quite easy, using a stock, to reverse the order. Listing 5 
does the Inck, reversing the values stoied between locations 90 
and 99. 



DON'T PUSH 

It may seem rather unfair to be allowed to PUSH the value of A or 
X, but not P (the usefulness of PUSH S is more debatable). In fact 
it would be quite useful to be able to PUSH the value of P. Il 
would be a kind of bookmark — 'Ihis is where I reached when 1 
did the PUSH P-. 

BASIC uses a kjnd of PUSH P arrangement 10 cope with the 
GOSUB statement, which has to remember 'where it came from' 
however many times it is used. GOSUB lets you use the some bit 
of program over and over again — wherever you call it from, a 
flETURN will always get you back. This is harder to program than 
you might imagine. You can't )ust use a 'where i came from' 
variable, because that won't handle GOSUBs within GOSUBs: 



IB GOSUB 30 

20 STOP 

30 GOSUB 50 

40 RETURN : REM [to 20) 

50 RETURN : REM [to 40) 



This program would never gel back to line 20 if il used a single 
vanable to store 'where 1 came from'. The GOSUB in line 30 
would scrub the reierence to line 20 stored by line 10 (we thinkJ), 
The answer (as you probably guessed) is to use the dreaded 
LIFO stack, so that each RETURN matches the most recent 
GOSUB And that's exactly what BASIC does, which is why a 
program like: 

10 GOSUB 10 

slowly eals up memory until you get an enor message when the 
stack IS full (usually someihing like 'Too many GOSUBs' or 'Out of 
Memory')- 

Now we've got a stack it is easy to add GOSUB and FlETURN 
instructions, although assemblers tend lo prefer words fike CALL 
andJSROump to SubRouline) instead of GOSUB, Nol being total 
masochists, we'll use CALL and RE'TURN. CALL saves the 
oddress of the following mstruclion (lo avoid getting knotted up 
within a RETURN) on the stnck RETURN letches the last number 
off Ihe stack and puts it into Ihe'P' register — m effect, JUMP, @S, 
To clarify this, try out this Easycode program which is identical in 
eflecl to the fiv*^ line BASIC pmqram; 
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A PRACTICAL EXAMPLE 

il yr.'U =avM(i Lisiinq 4 you ,~an easily change it into a general- 
purpose multiplication subroutine, lust change the at location 
33 into a RETURN [code 25) You use the subroutine by loading A 
und X and then CALLmg location 4. If you'ie sure that X will 
always be less than A. you could CALL, 19 instead, skipping the 
swap instructions. 

The last program ol the month (Listing 6) assumes that you 
have entered Listing 4 and changed the HALT into a RETURN, 
The program, which should be RUN from location 60, works out 
the square of tfie number in the A register (multiplying A by A). 
The result ends up in locations 98 and 99, as usual This will be a 



faCi 

c4: 



LUAD A) ; Wh-tc/er sirt' (.ell yOL 

LOAD A|X F'ul triB a^iiie nLinlbci ii 

CALL I I'' Llo LI if mill 1 1 Uil lv.«il. luii 

HfiLl e-ty. «J*n' L il- ' 



pr l?t Br 



Listing 6. Storing A squared at 98. 99. 



vastly useful program next time you need to know now niany 
sheets of paper are needed to cover the ceiling of a square 
room . . , (always assuming you know the area ol a sheet, o CT 
spread covers about 0. 1 24 square metres!) 

There is one crucial thmg to remember aboul programming 
using the stack. You must cleat away temporary results between a 
CALL and a RETURN — otherwise the computer could try lo 
RETURN to the place A or X pointed to. You can't CALL a routine 
that goes PUSH A then RETURN - the value of A would 'get in 
the way' of the return address so that you'd end up'returning' to 
whatever address happened to be in A. There are a few 
occasions in which this is likely to be useful, but not many' 

The tnck is to make sure thot you afways POP as much as 
you've PUSHed before returning from a subroutine, A common 
mistake is to 'save registers' before a CALL and then try to 'restore 
registers' inside the subroutine- This doesn't work either — the 
return address gets in the way. 
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And so io the final act where we 
introduce a few characters from the 
real world of microprocessors and 
compare their instruction sets to that 
of our BASIC simulation. 

In Ihis iinai instalment of the the 'Easycode series we'll 
compare oui invented machine- code with the real thing, and 
explain some oi the lectures ol common microprocessors. 
We've got examples in Easycode, 280, 6502 and 6809 code, and 
we'll compare the periormance ot all of the popular processors. 

THE DIFHCULT BIT 

When this series beqon we deliberately skipped over an area 
which IS normally introduced very early in machine-code tutonals 
— the idea ol'bits'. This isn't a very hard idea to grasp, but it is 
difficult to see why it is important when you've no background 
knowledge ol machine code By now you should know enough to 
be able to see how bits can be useful. 

You've almost certainly been told, at one time or another, that 
computers store information in 'ones and noughts'. In other words, 
a voltage can be either present or absent at a point mside a 
computer or memory chip. H the voltage at a point is much over 
2V we generally call the level 'Logic 1' Less than o volt usually 
corresponds to'LogicO'. (Special purpose computers sometimes 
use different levels; officially, in micro systems, a '0' is represented 
byOVandaT by 5V) 

The importont point is that a computer can't store other values. 
High voltages are ' I 's, lower voltages are 'O's. The exact line 
between the two levels, or 'states', vanes between components 
but It IS generally between 1 and 2V. There is no 'Logic '/:' level, 
and no 'Logic 3' or 'Logic —2' Computer storage is composed of 
cells — or 'bits'. Each bit contains either the value '0' or'l'- 

BASE 100 

Easycode differs from real computers because each location — 
the smallest unit which can be handled — can contain any value 
in the ronqe from to 99. If you wont to store a larger number m 
Easycode, you have to use more than one location. To store a 
value up to 9999 you use two locations, one for the 'units' and 
another for the 'hundreds' In pnnciple this could be extended 
indefinitely — to store the number of people in the UK you'd need 
four locations, for units, hundreds, tens of thousands, and rriillions. 
The limited capacity o( an individual location doesn't matter 
much, so long as you can manipulate groups oi them together 

BASE 2 

A single bit is the most limiting capacity of all. You con use it to 
represent the answer to a 'yes/no' question but it isn't useful for 
much else on its own. Micro systems recognise Ihis fact and most 
instructions deal with groups of bits rather than individual ones. 
An 'eight bit' computer is one which uses, most commonly, groups 
of eight bits, or'byles'. 

Most popular micros use eight bit processors, although they 
often have □ few (ocihties for handling information in larger oi 
smaller amounts. There are jargon terms for each amount: 'words' 
(16 bits) - 'long words' (32 bits), 'pages' (often 256 bytes - 2084 
bits), 'segments' (typically 65536 bytes) and lots of others, specific 
to individual processors. There are units smaller than a byte, too: 
a 'nibble' is two bits and a 'nybble' (note the 'i' and the 'y') is four 
bits, 

■The more bits there are in a unit, the mare values can be 
represented- In a nibble you can store four different values, 00, 
01, 10 and 1 1 This is a notation called 'binary' (meaning twofold) 
since each bil may be either a '0' or a ' 1 '. 

The number of values which can be stored m a certain 
number of bits is found by multiplying two (the number ol possible 



states) by itself for each available bit. In two bits we can store four 
values, in four bits we can store 2x2x2x2 = 16 values, and so 
on If you're not sure of this, check it out by wnting all of the 
permutations of four bits. Once the rule is known we can say that 
256 values will fit in a byte (eight bits), 65536 values will fit into a 
computer word (16 bits), and so on, 

DECIMAL AND BINARY 

It is helpful to be able to wnte numbers m binary, but sometimes 
they are rather unwieldy, ft is much easier to say that the 
Spectrum's display memory is located between address 16384 
and 23295, than to use the binary forms 1 OOOOOOOOOOOOCO and 
101 lOIOl 1 1 1 II 1 ! , even though the binary does represent the 
pattern of voltages used inside the computer! We need a 
consistent way to convert binary into decimal. 

If we call the right hand digit the 'units', the next digit the 
'twos', then the 'fours', 'eights', 'sixteens' and so on, we can 
convert from binary to decimal quite easily. The sequence ot 
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values ('powers of two' or 'weights'), from the right, goes 1 , 2, 4. 8, 
16.32.64, 128,256,512, 1024 (a 'K'), 2048, 4096, 8192, 16384, 
32766, 65536 and so on. You pick up this sequence quickly as 
you learn machine code 

As an example. Table I converts the number lOIOlOlO Irom 
binary to decimal You should be able to confirm that 11111 101 
in binary is 253 m decimal, and 01010101 (binary) is 85 
(decimal). 

SHIFT WORK 

There is a hidden advantage of binary arithmetic — it is better 
suited to electronic addition, multiplication, and so on. Even 
pocket calculators use binary inlemally, like computers, and then 
convert the values as required. You may have spotted the 
technique used when you tried out the examples above. 

A microprocessor is much better at moving bits around than it 
is at complicated anthmetic operations like multiplication. 
There are electronic ways of multiplying or dividing in a single 
step, but they're certainly not tnvial! What is easy is moving bits 
up and down m a register — so-called 'shifts' (if the end values 
are thrown away) or 'rotates' (if the end values re-appear at the 
other end). 

Look back at the binary forms of 85 and 1 70. To convert 85 
into 1 70 all you have to do is shift the binary one place to the left. 
Such a shift is, m effect, a 'multiply by 2' operation. Similarly a shift 
to the nght conesponds to a 'divide by 2'. By convention the bit 
which falls off after a shift or rotate (the remainder, here) is 
shunted into the carry flag. 

Earlier in this senes we performed a multiplication by adding a 
number to itself repeatedly. We warned that this was not the 
technique used in real computers — now we can see the real 
technique in action! 

PROBLEMS MULTIPLYING 

It IS fairly easy to program a multiplication using a combination ol 
shifts and additions (hardware addition is simpler than multi- 
plication — all microprocessors support it). It becomes even 
easier once you realise that we're using binary, since the ones 
and noughts in the binary can be used to indicate when we 
should shift the result and when we should add the value to be 
multiplied. 

As an example we'll multiply 23 by 1 1 , using binary through- 
out. 11 decimal (the multiplier) is 101 1 in binary, and 23 (the 
multiplicand, or 'other number^') corresponds to 1 ! 1 1 . The 
operations are 'dry run' m Table 2, 

We end up with the binary value 11111101, which — 
amazingly enough — is 253 in decimali This may seem like 
magic, but it does work reliably lor any size of number, so long as 
you carry out one shift/ rotate step for every bit in the multiplier. 
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TABLE 2 
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Bmary multiplication. 









If this still seems conlusinq, try ttimkinq of it as a process oi 
repeated additions with shiits inlenTiingled. An add loliowed by 
lour shifts corresponds to 16 adds, an add before two shifts 
corresponds to four adds, and so on The later a bit appears m 
the multiplier, the less additions it represents. Each position 
represents hall as many additions as the position to its lelt. 

There is a 'useless' shift in step 1 — this shifts the value zero, 
making absolutely no difference! It has still been performed to 
emphasise that the procedure is absolutely identical at each step 
shiit the result, shift the multiplier and add the multiplicand IF 
there was a carry from the multiplier). There should be as many 
steps as there is room lot bits m the multiplier Here we've used 
four bits, hence four steps are needed lo line up the resuft 
correctly. 

You may need more bits (o: the result than you did foi the 
onqinol number, [ust as in human arithmetic. In decimal, 99 times 
90 (two-digit originals} gives a four-digit result. 8910. for those 
with boggling brains or ibt calculator battenes! The number ol 
digits (or bits) m the result is never more than the totol number of 
digits m multiplier and multiplicand, 

Table 2 presumes that you either know or can work out how to 
add binary numbers. The process is aclually very simple, 
although computers are best at it so it is OK to skip the anthmetic 
as soon as you understand how it works! Binary addition is done 
from the right-hand digit leftwards, )ust as you were taught [with 
decimal) at school. A ' 1 ' can be 'earned' to the left as usual, so 



you have to take the previous 'cany' mto account for every digit 
alter the first. For each column of binary there are eight pos- 
sibilities, shown in Table 3. 

In principle this mie can be used for addition inside the 
computer, although tricks are used so thot the processor doesn't 
have to wait for all the rightmost bits to be added before it can 
work out the result (including carry) for the leftmost. These tncks 
are interesting, but rather beyond the scope of this article' 

ILLOGICAL, CAPTAIN! 

There is one mote application ol bits which it is useful to under- 
stand. This is the idea of 'fogical operators', not spies from the 
planet Vulcan, but actions based on simple binary rules. Logical 
operators allow a programmer to pack different information into 
any bit or group oi bits within a location. Shifts and rotates can be 
used to line the bits up before Ihey are stored or lecalied. Table A 
summarises the effects of the operators NOT, AND, OR and XOR 

The simplest logical operator is called 'NOT, 'inverting' or 
'ones- complement' The effect of the 'NOT operation is to flip the 
values of each individual bit. Every one becomes a nought, and 
vice versa. 



The other logical operators involve two numbers — the data, 
and a so- called 'mask' value which is used to determine the 
result, AH of the operators are commutative, which means that you 
get the same result whichever value you say is the 'mask' — in 
normal anthmetic, addition is said to be commutative, since 7+2 
= 2 + 7, whereas subtraction is not' 7 — 2 is not the same as2 — 
7 (or so my bank manager insists!). 

The AND operator produces a result which contains ones' at 
every position where the data AND the mask contained a ' 1' This 
IS useful when you want lo check, some of the bits m a number and 
ignore the others, To test whether a numbei is odd or even, for 
instance, you |ust AND it with 1 If the result is zero (hen the 
number is even, otherwise it contained a 'unit' and must be odd. 

The OR operator produces a result which contains '1' a1 every 
position wheieihe data OR the mask {or both) held a']'. This is a 
useful way to set certain bits in a register. OR A;4 will set the hit 
third from the nght (the 'fours' column) in register A, whether or not 
It was set before. 

The last operator is the most devious The 'exclusive OR' f XOR 
or EOR) operation sets o bit in the result whenever ONLY ONE of 
the corresponding bits in data and mask is set. XOR A; I would 
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moke the contents of A odd if they were previously even, or vice 
versa, ff A is an eight- bit register. XOR A,255 will produce the 
same result as NOT A — all of the bits in A will be flipped (since, 
for any bit. ' 1 ' XOR ' 1' is '0' and 0' XOR ' 1' is ' 1') 

The key thing to remember is that if you XOR a location with 
the same mask twice, you get the first number back. This is very 
useful for applications like graphics, when you want to store and 
then erase a pattern, 

REAL MACHINE-CODES 

This series ends with a look at the three most common forms of 
'hobby machme-code - Z80. 6502 and 6809 code We'll also 
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mention the 6800. 3080. 8085. 8086. 8088 and 68008 processors 
in passing' 

There are, broadly speaking, two different types ol eight bit 
micioprocessor — Motorola- style and Intel- style. Motorola and 
Intel are both Amencon chip- makers. Firms such as RCA, Texas 
and National SemiconductoT hove produced different designs, 
but they haven't caught on with hobby machine builders. Figure 1 
shows a family tree of the most populor processors. 

The first 'hit' micro was the Intel 8080. a development oi an 
earlier calculator chip called the 8008. Later m 1 975 Motorola 
produced the 6800 chip, a competing processor with a totally 
different internal design. 

INTEL 

processors which follow the Intel design tend to have lots of 
registers and instructions, all of which hove different, specialised 
applications. 

The speed of a processor is determined by the timing clock 
signal It receives. Intel-style machines tend to take a number of 
pulses ol the clock before they produce results (usually between 
four and 20 pulses, depending upon the instruction) 

Common Intel-style processors are the 8080, 8085, 8086, 
8088 and ZSO, The 8085 and Z80 were both directly modelled on 
the 8080. to the extent that they share much of their instruction- 
set. 

MOTOROLA 

Motorola- style processors have relatively few registers and in- 
structions. Instructions lend to be simple and consistent between 
registers, so that each register can be used in much the same way 
as the others (this is less taie of the 6502). 

Motorola established the idea of using 'instruction pre-fetch', 
which means that one pari oi the processor gets on with fetching 
information from memory while the other part decodes and per- 
forms the instructions. This 'parallel' principle is extended 
elsewhere in the processor, so that instructions take few clock 
pulses to be performed — generally between one and six pulses. 
This is one of the reasons why the Motorola- style BBC Micro (6502 
at 2 million clock pulses a second, or 2 MHz) can out- perform the 
Lynx or Spectrum with their Intel-style Z80s ainning at twice the 
clock speed. 

The Motorola 6B008 processor used in Sinclaii's QL computer 
has been cnticjsed because it is a 'cut-down' version which 
addresses memory m byles rather than 16- bit words. In fact the 
loss in performance is quite small — generally only about 30 per 
cent — because of the way the processor can access memory at 
the same time as internal operations are perfomied, 

By way oi contrast, many business machines use the Intel 
8088 microprocessor, a cut-down model of the 16- bit 8086. The 
8086 does not 'look ahead' in the same way, so the performance 
of the 8088 IS degraded much more. 

BATTLE OF THE BYTES 

Listing 1 shows an Easycode program similar to one introduced 
earlier in this senes. The program adds up a list of 10 numbers 
and stores the total in memory Listings 2, 3 and 4 contain 
equivalent programs for the ^0, the 5502 and the 6809. The 
overall structure of the solution is the same in each case, although 
the detail has been altered. The programs are not claimed to be 
the best possible solution for each processor, but they do show 
the differences between the machines quite accurately. 

Each real program starts with an ORG statement which tells 
the assembler where the code and data are to be stored. The 
value you pick depends upon the use o( memory in your 
computer — il doesn't really matter where you pick so long as the 
memory is not already in use. 

Words like DEFW, DW, and FDB are used to initialise a word 
location to a given value (zero, m the listings). Similarly DEFS, DS 
and FIMB reserve a specified number of bytes for data (without 
explicitly stonnq a value). These words (called 'pseudaops' since 
they don't cause any processor operations) vary between 
processors and assemblers. The examples above were tested 
using EDAS on o Video Genie, AMAC on an Atan 800 and DASM 
on a Dragon 32. 

Each assembler (other than Easycode) allows lines to be 
named or 'labelled. This allows you to refer to data and code by 



name rather than address. On the Z80 and 6502 you define 
labels by following them with a colon — on the 6809 you prefix 
label names with an '@' sign. 
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Listing 1. The Easycode adder (30 locations ol code). It adds 
the values in 80-89, storing the result in 70 and 71. 



THE ZSO PROGRAM 

The ZSO processor is very popular with hobbyists, mainly because 
it has lots ol 'special case' instiuctions, A very clever programmer 
can conseguently produce very clever programs! However, it 
does take a while to learn the idiosyncracies of the ZSO. 

In ZSO assembler a number or register-name in brackets 
represents a pointer to a location, so tht LD A, (100) would LoaD 
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Listing 2. The ZSO adder (22 locations of code). This adds the 
values in TABLE, storing the result in TOTAL. 



the contents of location 100 into register A (oddly, 280 instnictions 
move data from right to left!) and LD A.lOO would put the value 
100 into A. Some of the eight- bit registers can be used in pairs as 
16- bit pointers, the H and L registers are used m this way in 
Listing 2. The DJNZ inslruction is a typical compound Intel 
mstniction. It combines a count-down (in the B register) with a 
conditional jump if the result is not zero. 

THE 6502 PROGRAM 

The 6502 is the most consistently- eight- bit processor, so Listing 3 
has to store the IS-kitt result in two eight- bit stages. Even the stack 
pointer is an eight- bit register, so a maximum ol 256 bytes can be 
PUSl^ed- By way ol compensation the 6502 has fast, useful 





ORG 


1S40 


TOTM.I 


DM 





TABLE E 


DS 


ID 


ADDUPt 


LDV 


Ml 




LDX 


•0 




LDA 


TABLE 


NEXTi 


ADC 


TABLE, V 




BCC 


NOCAR. 




I NX 




NDCMIa 


I NY 






CPV 


RIO 




BNE 


NEXT 




BTX 


TOTAL* 1 




STA 


TOTAL 




RTB 






END 


ADOUP 



g 5t ar t aBCeab 1 y at addr ess 1 540 
(Rooa fat the result (••ord value) 
;Spdce tar lO data values 

;V selects each valuB in turn 
;X counts aultlplies o* 2S& 
(Put ite* at start a* TABLE m A 
(Add value at TABLE *c on tents o* Y 
;RuBh on unless A over* la*«ed 
ifioa 1 to (increaent) register X 
(Point ¥ at the next value 
fCom^aru Y with 10 

iBranch (juap) to NEXT i* Y^ >10 
iStore X in high byte of TOTAL 
iStore A In lorn byte oi TOTAL 
iHe've finistied (horrav) 
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Listing 3, The 6502 adder (25 locations of code). 
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instructions for 'indexed addressing, such as ADC TABLE, Y 
which takes the address TABLE, adds the eight- bit value in 
register Y, letches a byte from the address totalled, and adds that 
byte to the value in the accumulator^ In eifect the mstmction 
combines an adjustable array acess and an add in one step. 

Motorola don't use brackets in the same way as the Z80 
assembler. To load the VALUE 100 into register A you mark the 
number with a hash: LDA # 100. To letch the byte at address 100 
useLDA 100. 

Motorola- style computers col! conditional jumps 'branches' to 
show that they use a tnck called 'relative addressing. The 
instruction doesn't contain the target address of the )ump — 
instead it stores a positive or negative 'offset' between the lol- 
lowing mstmction and the one which might be (etched instead. 
Consequently BCC NOCAR is stored as 1 44 (the code lor BCC) 
followed byT to indicate that one byte should be skipped{the 
INX) if the carry flag is clear Relative branches make programs 
shorter and easier to move about in memory 

THE 6809 PROGRAM 

It is a shame that the only common machines using the 6809 are 
the Dragon and Tandy Colour computers, which have 
weaknesses elsewhere in their design. The 6809 has lots oi 1 6- bit 
instructions, an extra stack (so you don't need to gel data and 
CALLs muddled up), even more ways of addressing data than 
the 6502, and a one-step built-in multiply operation. Despite its 
comprehensiveness, the instruction- set of the 6809 is the most 
consistent of any eight- bit processor, making it easy to learn and 
use efficiently. A seasoned CT contnbulor, Mike lames, has 
written The 6809 Companion (Babani), which is an ejtcellent 
cheap reference if you'd like to find out more lor just £1.95. 

Turning to our example program, lour registers are used — the 
16-bit index Y to point to the data, index X to store Ihe total so far, 
A to count data items and B as a temporory store lor each item. 





ORS 


2O480 


STOTflL 


FD8 





STABLE 


RKB 


lO 


SADDUP 


LOA 


«10 




LDX 


»0 




LDY 


HSTABLE 


8I.O0P 


LDB 
ABX 
DCCA 


0,Y+ 




BNE 


SLOOP 




8TX 


STOTAL 




RTS 






END 


•ADDUP 



I St Art ASCMMily «t addf-a«» 2Ci490 
iRdom far th« r«CLil t <Mord valusi 
iBpaca for lO data v<ilu»« 

I Th» A r»qiat»r counls th* valuBS 
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iPoint r»qi«t»r V at th* TABLE 
iCcipy data at V to B, add I to V 
lAdd raqistar B to total in X 
(Count on* Ittaa valua to b* «dd»d 
|lf A Ic not zmra^ go to LOOP 
iSava tha rasult At TOTAL 

|Ea*Vi ■^'^ 

iThls Bu-ka th« start and wnit 



Luting 4. Th« 6809 add*r{19 locations of code). 



"LDB 0, Y+" adds to the contents of register Y (the zero is a 
dummy value m this case) and puts the contents of the total 
address into register B. The ' +' tells the 6809 to add one to 
register Y (selecting the next byte in the table) while it is copying 
the byte into B' "ABX" \s a rare but useful instruction which adds 
the8-bit number in B lo the !6-bit total in X. 

CONCLUSION 

With a little luck this senes has explained the essence ol machine 
code programmmq, H some ol the details are a little unclear, don't 
worry — you learn programming by doing, not by reading. This 
senes really set out just to encourage you to get started' 

The next step is to buy, borrow or steal an assembler (make 
sure you get all of the instn-ctions') and buy a good book on your 
chosen processor i bod lurk li you've got a Ti 99/4A). The 
Programming the 6502/68O9/Z8O series by Rodnay Zaks 
(Sybex) will stana you in good sttad. so long as you are careful 
not to buy first e^iifion copies, which tend to be plastered with 
errors. 

We look forward io seeing your concise machin^code 
niasterpiec-s in CT soon' 



PLEASE WAIT . . 

A Mystery Program 



10 GOTO1880 
20 REM 

30 SCREENl,: :CLS:CURSOR10, 4 :PRINT"Please wdit":S-a 

4 A=0: A=INT(RND(8)*5)+1 : I FA= 70 1THEN4 

50 ONAGOTO60, 310, 380, 460,550 

6 SCREEN2, 1 : CLS : COLORl 5, 1 5 , (0,0)-(255,191),15 

70 LINE(10,10)-(245,181),8,B:LINE(10,10)-(122,90),,B 

80 LINE(245,10)-(133,90),,B:LINE(245,181J-(133,101),,B 

90 LINE(10,181 )-(122,101 ), ,B 

100 LINE(115,11)-(115, 65), 4:LINE-( 35,11) 

110 LINE(140,11)-(140,65):LINE-(220,11) 

120 LINE(140,180)-[140,126):LINE-(220,18a) 

130 LINE (115, 180) -(115,126) : LINE- ( 35, 180 ) 

140 LINE(11,81)-(82,81) : LINE- ( 11 , 28 ) 

150 LINE(244, 81)- (173,81) : LINE- ( 2 4 4 , 28 ) 

160 LINE( 244,110) -(173,110) :LINE-( 2 4 4,165) 

17 LINE(11,110)-(82,110):LINE-{11,165) 

180 LINE {11, 11) -(106, 81), 8 : LINE- (9 5, 81):LINE-(11,19) 

19 LINE(244,11)- (150,81) : LINE- ( 140, 81 ) : LI NE- { 140 , 75 ) : LI NE- ( 2 30 , 11 ) 

200 LINE(244,180)-{150,111):LINE-(163,111) : LINE- ( 2 44 , 172 ) 

210 LINE (11,180)-(105,110):LINE- (115, 110) :LINE-(11 5,1 16): LINE- (26,180) 

2 20 PAINT(123,11),8:PAINT(11,29),4:PAINT(36,11) 

2 30 PAINT( 209,11) : PAINT ( 24 4 , 29 ) : PAINT ( 24 4 , 111 ) : PAINT (141, 127) 

240 PAINT(113,128) :PAINT{11,111) 

250 PAINT(12,12), 8: PAINT (240, 11) : PAINT ( 243, 179 ) : PAINT { 18, 179 ) 

260 SCREEN2, 2:FORA=0TO700:NEXTA 
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Easycode 32K Version for SEGA 

1 REM AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

20 REM ** EASYCODE 32k version. 

30 REM ** (C) 1984 Simon Goodwin 

40 REM ** SEGA 1985 David Coursey 

50 REM ** Tape routine data 

60 DATA 2A,60,81,22,0C,98, 2A,62,81 

70 DATA 22, OE, 98, 2A, 08, 98, 22, 60, 81 

80 DATA 2A, 0A,98,22,62,81,CD,69,7A 

90 DATA 3E,0,32,A2, 82,CD,9F,77 

100 DATA 2A,0C,98,22,60,81,2A,0E, 98 

110 DATA 22, 62, 81, C9 

120 DATA 2A,60,81, 22,0C,98,2A,62, 81 

130 DATA 22,0E,98,2A,64, 81, 22, 10,98 

140 DATA 2A, 56,81, 22, 12, 98, 2A, 08, 98 

150 DATA 22, 60,81,CD,EF,78, 2A,0C,98 

160 DATA 22,60,81, 2A,62, 81, 22,66, 81 

170 DATA 2A, 0E,98,22,62, 81, 2A,10,98 

180 DATA 22, 64, 61, C9 

190 REM ** Assembler text & codes 

200 DATA STORE A; @X, 18 ,LOAD A;@X,17 

210 DATA STORE A;@,-3,ST0RE X;ia,-13 

220 DATA LOAD A;@,-2,L0AD A;X,4 

230 DATA SUB A;(3X,7,L0AD X;@,-12 

240 DATA LOAD X;A,14,ADD A; @X, 19 , JUMPNZ ; , -9 

250 DATA JUMPNC; ,-8,L0AD A;, -1, LOAD X;,-ll 

260 DATA PUSH A, 20, PUSH X, 21 , RETURN, 25 

270 DATA ADD A;, -5, ADD X;, -15, SUB A;, -6 

280 DATA SUB X; ,-16, JUMP;, -10, POP A, 22 

290 DATA POP X, 23, CALL; , -24, HALT, 

300 REM ** Screen display data 

310 DATA 32,49,50,51,52,53,54,55,56,57,45,40,45 

320 DATA 48,48,48,48,48,48,48,48,48,48,45,65,45 

330 DATA 41,41,41,41,41,41,41,41,41,41,45,32,45 

1000 TR=0:SD=0 

1010 GOSUB 15500:REM Opening screen 

1020 ERAEE:REM Set variables to zero 

1030 DIM R(l) ,M(99) 

1040 MAX=25:REM Highest instruction code 

1050 DIM DS(MAX) ,E(MAX) ,S{9 ) 

1060 GOSUB 6500 

1070 SCREEN 2,1:CLS 

1080 GOTO 14000:REM Get menu 

3490 REM ** Poll keys; Space=wa it, <CR>=abort 

3500 T$=INKEy$:REM keyboard scan 

3510 IF T$=CHR${13) THEN ABRT=1:BEEP 

3520 IF T$<>CHRS(32) THEN RETURN 

3530 BEEP 

3540 R0W=15 

3550 COLUMN=0 

3560 GOSUB 6000:REM Position cursor on message line 

3570 PRINT "Waiting at";P; 

3580 PRINT " Press a key"; 

3590 FOR DE=1 TO 150:NEXT DE 

3600 T$=INKEY$ 

3610 IF LEN(T$)=0 THEN 3600:REM No key yet, loop 

3620 IF T$=CHR$(13)0RT$=CHR$( 32) THEN 3640 

3630 BEEP 

3640 GOSUB 4000:REM Scrub the message 

3650 GOTO 3510 

3990 REM ** Clear line (leave cursor at start) 

4000 GOSUB 6000;REM Position cursor 

4010 PRINT CHR$C5) 

4020 GOSUB 6000:REM Reset cursor 
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4030 RETURN 

4490 REM ** Read number 0-99 to N (iaO=error) 

4500 INPUT T$ 

4510 IF TS<"0"ORT$>=" : " THEN 4570:REM Not digit 

4520 N=VAL(T$) 

4530 IF N<0 THEN 4570 

4540 IF N>99 THEN 4570 

4550 IF N<>INT(N) THEN 4570:REM F.P, Basic only 

4560 RETURN:REM No error 

4570 R0W=15 

4580 COLUMNED 

4590 GOSUB 4000:REM Cursor to message line 

4600 PRINT "* Number beyond range 0-99"; 

4610 N=100 

4620 RETURN:REM Error found 

4990 REM **Update display of registers and flags 

5000 CARRY=0 

5010 ZERO=0 

5020 IF R(K)>=0 THEN 5050 

5030 R(K)=R(K)+100 

5040 GOTO 5070:REM Set carry 

5050 IF R(K)<100 THEN 5080 

5060 R{K)=R(K )-100 

5070 CARRY=1 

5080 IF R(K)=0 THEN ZERO^l 

5090 R0W=12 

5100 COLUMN=22 

5110 GOSUB 6000:REM Set Up for zero flag 

5120 PRINT "N"; 

5130 GOSUB 6000:REM Position cursor 

5140 IF ZERO=0 THEN PRINT "Y"; 

5150 COLUMN=28 

5160 GOSUB 5000:REM Set up for carry flag 

5170 PRINT "N"; 

5180 GOSUB 6000:REM Position cursor 

5190 IF CARRY=1 THEN PRINT "Y"; 

5200 C0LUMN=1 

5210 N=R{0) 

5220 GOSUB 8000:REM Update accumulator display 

5230 C0LUMN=8 

5240 N=R(1) 

5250 GOSUB 8000:REM Update X register display 

5260 GOTO 11500:REM Get next Instruction 

5490 REM ** Mark and update the current locn. 

5500 ROW=INT(P/10)+1:REM F.PBasic only 

5510 COLUMN=(P-10*ROW)*3+31 

5520 GOSUB 6000:REM Put the cursor there 

5530 PRINT " ";:REM <2 SPO 

5540 R0W=12 

5550 C0LUMN=15 

5560 N=P 

5570 K=I:REM Save instruction code 

5580 GOSUB 8000:REM Update program counter 

5590 N=M{P) 

5600 I=P 

5610 GOSUB 16500:REM Redraw curent location 

5620 GOSUB 3500:REM Poll the keyboard 

5630 I=K:REM Restore instruction code 

5640 RETURN 

5990 REM ** Position cursor at column & row 

6000 CURSOR COLUMN, ROW:PRINT " '* ; 

6010 RETURN 

6490 REM Set up data for Assm. & Dism. 

6500 RESTORE 190 

6510 FOR 1=0 TO 25 t 

6520 READ D$(I )^E{I ) :REM Text & instruction No. 

6530 NEXT I 

6540 RETURN 

6990 REM ** Push N onto stack 

7000 COLUMN=33 

7010 ROW^IO-STACK 
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7020 IF ROW=0 THEN 7110 

7030 S(STACK)=N 

7040 GOSUB 8000 

7050 STACK=STACK+1 

7060 COLUMN=34 

7070 ROW=12 

7080 N=STACK 

7090 GOSUB 8000:REM Update S display 

7100 RETURN 

7110 COLUMN=0 

7120 R0W=15 

7130 GOSUB 6000:REMPrepare for message 

7140 PRINT "* Stack full"; 

7150 GOTO 11600:REM Leaves 1 GOSUB stacked 

7490 REM ** POP N from top of stack 

7500 STACK=STACK-1 

7510 IF STACK<0 THEN 7590:REM Whoops, error 

7520 GOSUB 7060 

7530 COLUMN=33 

7540 ROW=10-STACK 

7550 GOSUB 6000:REM Prepare to clear old entry 

7560 PRINT " ";:REM <2 SPO 

7570 N=S(STACK) 

7580 RETURN 

7590 PRINT "* Nothing left on stack"; 

7600 GOTO 11600 

7990 REM ** Print N at current coordinates 

8000 GOSUB 6000 

8010 IF N>9 THEN T$ = STR$ (N ) : L=^LEN ( T$ ) : T$ = RIGHT$ { T$, L-1 ) 

8020 IF N<10 THEN T$=STRS { N ) + " ";REM Force two character width 

8030 PRINT MIDS(T$,1,2); :REM In range 0-99 

8040 RETURN 

8090 REM ** Print K at current coordinates 

8100 GOSUB 6000 

8110 IF K>9 THEN T$=STR$ ( K ) : L=LEN ( T$ ) : T$=RI GHT$ ( TS , L-1 ) 

8120 IF K<10 THEN T?=STR$(K)+" ":REM Force two character width 

8130 PRINT MID5{TS,1,2); ;REM In range 0-99 

8140 RETURN 

8990 REM ** Draw the display 

9000 1=0 

9010 CLS 

9020 GOSUB 9500:REM 2LH,lRH column 

9030 FOR R0W=1 TO 10 

9040 COLUMN=0 

9050 GOSUB 6000:REM Position cursor 

9060 PRINT ":" 

9070 FOR J=l TO 10 

9080 COLUMN=J*3-2 

9090 N=M(I ) 

9100 GOSUB 8000:REM Print one memory element 

9110 1=1+1 

9120 NEXT J:PRINT"( ":NEXT ROW 

9130 R0W=11 

9140 COLUMN=0 

9150 GOSUB 6000:REM Position cursor 

9160 FOR 1=0 TO 36 

9170 PRINT "-"; 

9180 NEXT I 

9190 R0W=12 

9200 GOSUB 6000:REM Position cursor 

9210 PRINT "=00) . (X=00) . (p-00) . (Z=N) . (C=N) . (S=00)" 

9220 R0W=13 

9230 GOSUB 6000:REM Position cursor 

9240 FOR 1=0 TO 36 

9250 PRINT "-"; 

9260 NEXT I 

9270 R0W=15 

9280 GOSUB 6000:REM Gursor on message line 

9290 COLUMN=0 

9300 R0W=21 

9310 GOSUB 6000:REM Cursor on message line 
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9320 PRINT "? £or HELP" 

9 3 30 RETURN 

9490 REM ** 2*LH,1*RH screen columns 

9500 X=0 

9510 RESTORE 310 

9520 FOR Y=l TO 13:READ B 

9530 VPOKE Y*40+X+&H3C00,B 

9540 NEXT 

9550 X=X+1:IF X=2 THEN X=39 

9560 IF X=40 THEN 9580:REM Job done 

9570 GOTO 9520:REM Carry on 

9580 RETURN:REH 9030 

9990 REM ** Get the user's next command 

10000 R0W=14 

10010 COLUMN=0 

10020 GOSUB 4000:REM Clear prompt line 

10030 PRINT "Command"; 

10040 INPUT"> "; TS 

10050 REM ** Force capitals 

10060 025="" 

10O7O FOR C=l TO LEN ( T$ ) : Cl$=MIDS ( T$, C, 1 ) 

10080 IF Cl$> = "a" THEN C15=CHR$ ( ASC( CIS ) - 32 ) 

10090 C2$=C2$+C1$:NEXT 

10100 TS=RIGHTS(C2S,LEN(T$) ) 

10110 GOSUB 10130 

10120 GOTO 10180 

10130 R0W=15 

10140 GOSUB 4000:REM Clear message line 

10150 R0W=16 

10160 GOSUB 4000:REM Clear extra line 

10170 RETURN 

10180 IF T$="RUN" THEN 11000 

10190 IF TS="SAVE" THEN 12000 

10200 IF T$ = "LOAD*' THEN 13000 

10210 IF T$="?" THEN 14330 

10220 IF T$="QUIT" THEN 10380 

10230 IF TS="CLEAR" THEN 10400 

10240 IF T$="STORE" THEN 16000 

10245 IF TS="HCOPY" THEN 22000 

10250 IF T$="DIS" THEN 17000 

10260 IF T$="ASM" THEN 18000 

10270 PRINT "* ";T$;" is not a valid command" 

10280 GOTO 10000 

10290 REM ** Affirm QUIT/CLEAR command 

10300 COLUMN=0 

10310 R0W=15 

10320 GOSUB 4000 

10330 PRINT "Discard current workspace (Y/N)" 

10340 INPUT TS 

10350 IF TS="Y" THEN RETURN 

10360 IF T$="N" THEN 12260 

10370 IF TS<>"Y"OR T$<>"N" THEN 10350 

10380 GOSUB 1030a:REM Print prompt 

10390 GOTO 15000:PRINT MENU 

10400 GOSUB 10300:REM Print prompt 

10410 CURSOR 0,14:PRINT "Working:" 

10420 COLUMN=0 

10430 R0W=15 

10440 GOSUB 4000 

10450 1=0 

10460 FOR ROW=1T010 

10470 FOR J=lTOlO 

10480 IF 1=99 THEN 10510:REM Last locn 

10490 IF M(I)<>0 THEN 10540 

10500 IF M{I)=OTHEN 10570:REM Carry on , 

10510 COLUMN=0 

10520 GOSUB 9190:REM Clear registers 

10530 GOTO 1020:REM Clear variables 

10540 COLUMN=J*3-2 

10550 N=0 

10560 GOSUB 80aO:REM Draw at mem. locn 
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10570 1=1+1 

10580 NEXT J:NEXT ROW 

10590 REM ** Program has been stopped 

10600 R0W=15 

10610 COLUMN=0 

10620 GOSUB 6000:REM Prepare for message 

10630 PRINT *'* Program stopped"; 

10640 GOTO 10000:REM Get a command 

10990 REM ** "RUN" command pre -processor 

11000 COLUMN=0 

11010 RaW=14 

11020 GOSUB 4000:REM Clear the prompt line 

11030 PRINT "Start address"; 

11040 GOSUB 4500:REM Get the start of the program 

11050 IF N>99 THEN 10000:REM Error 

11060 P=N:REM set program counter 

11070 ABRT=0:REM Clear the abort flag 

11080 COLUMN=33:REM Clear stack 

11090 FOR R0W=1 TO 10 

11100 GOSUB 6000:REM Position cursor 

11110 PRINT " ";:REM <2 SPO 

11120 NEXT ROW 

11130 STACK=0 

11140 N=STACK 

11150 COLUMN=34 

11160 R0W=12 

11170 GOSUB 8000:REM Rewrite stack pointer 

11180 K=0 

11190 GOTO 5000:REM Write A, X etc 

11490 REM ** "RUN" main loop for each instruction 

11500 I=M(P):REM Get next instruction 

11510 GOSUB 5500:REM Update display, check keys 

11520 IF ABRT=1 THEN 10600:REM Quit if requested 

11530 COLUMN=0 

11540 R0W=15 

11550 GOSUB 6000:REM Put cursor on message line 

11560 IF Kl THEN 11580:REM Halt code 

11570 IF I<=MAX THEN 11620:REM Other instruction 

11580 IF 1=0 THEN PRINT "HALT"; 

11590 IF IOC THEN PRINT "* Unknown instruction"; 

11600 PRINT " at";P; 

11510 GOTO 10000:REM Get next command 

11620 IF P099 THEN 11650:REM Not end of memory 

11630 PRINT "* No end on program"; 

11640 GOTO 10000;REM Get next command 

11650 P=P+1 

11660 J=M(P):REM Get operand 

11670 P=P+1:REM Point to next instruction 

11680 K=0:REH Assume a register A Instruction 

11690 IF 1=21 OR 1=23 THEN K=l 

11700 IF l>10 THEN IF K17 THEN K=1:REM Wrong ! Register X 

11710 ON I GOTO 20000,20100,20200,20300,20400,20500,20600,20700,20800,20900,200 

0,20100, 20200, 20300, 20 400, 20500, 21000, 21100, 21200: REM Execute instructions 

11720 ON 1-19 GOTO 21300,21300,21400,21400,21500,21600 

11990 REM ** "SAVE" current program 

12000 GOSUB 12500:REM Get Filename 

12010 POKE5H9808,PEEK(&H8162) : P0KE&H9 809 , PEEK { SH8163 ) 

12 020 POKE&H980A,PEEK(&H8166) : P0KESH9 80B, PEEK ( &H81 67 ) 

12030 COLUMN=0 

12040 R0W=15 

12050 GOSUB 4000:REMClear message line 

12060 PRINT "CONTINUE SAVE (Y/N)"; 

12070 INPUT T$ 

12080 IF T$="Y" THEN 12110 

12090 IF T$="N" THEN 12260 

12100 IF T$<>"Y"OR TS<>"N" THEN 12080 

12110 COLUMN-0 

12120 R0W=15 

12130 GOSUB 4000:REMClear message line 

12140 PRINT "Press SAVE & LOAD then <CR>"; 

12150 INPUT "*";T$ 
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12160 COLUMN=0 

12170 R0W=15 

12180 GOSUB 4000 :REMClear message line 

12190 PRINT "Saving ";FLS 

12200 CALLSH9814 

12210 CURSOR0,17 rPRINT " " 

12220 CURSORO, 18 :PRINT " " 

12230 CURSOR0,19 :PRINT " " 

12240 CURSORO, 20:PRINT " " 

12250 CURSOR0,15:PRINT "Saving end " 

12260 GOSUB 10130:REM Clear extra line 

12270 GOTO lOOOOrREM Get next command 

12490 REM ** Get filename 

12500 R0W=14 

12510 COLUMN=0 

12520 GOSUB 4000 

12530 PRINT "Enter Filename * "; 

12540 INPUT"EASY. ";T$ 

12550 FLS="EASY."+T$ 

12560 FOR BZ=LEN(FL$) TO 16:REM Pad filename with blanks 

12570 FL$=FL$+CHRS( 32) ;NEXT 

12580 RETURN 

12990 REM ** 'LOAD* memory from tape 

13000 COLUMN=0 

13010 R0W=15 

13020 GOSUB 4000 

13030 PRINT "Destroy existing data (Y/N)"; 

13040 INPUT TS 

13050 IF T$="Y" THEN 13080 

13060 IF T$="N" THEN 12080 

13070 IF T$<>"Y"OR T$<>"N" THEN 13050 

13080 COLUMN^O 

13090 R0W=15 

13100 GOSUB 4000 

13110 COLUMN=0 

13120 R0W=14 

13130 GOSUB 6000 

13140 PRINT "Working: " 

13150 POKE&H9 8 08,PEEK(&H8162) ;POKE&H9e09 , PEEK ( &H81 6 3 ) 

13160 POKE&H82A2,0 

13170 CALL&H9844 

13180 CURSOR 0,17:PRINT " " 

13190 CURSOR 0,16:PRINT " Loading end " 

13200 1=0 

13210 FOR ROW=lTOlO 

13220 FOR J=1T010 ' 

13230 IF 1=99 THEN 13260 

13240 IF M(I)<>0 THEN 13290 

13250 IF M(n=0 THEN 13320 

13260 COLUMN=0 

13270 GOSUB 9190 

13280 GOTO 10000 

13290 COLUMN=J*3-2 

13300 N=M(1 ) 

13310 GOSUB 8000 

13320 1=1+1 

13330 NEXT J:NEXT ROW:P=0 

13490 REM ** Tape routine Mcode loader 

13500 RESTORE 60 

13510 FOR X=&H9ei4 TO &H987D 

13520 READ AS : POKEX, VAL ( "SH" +A$ ) : NEXT 

13530 RETURN:REM to 15620 

13990 REM ** 'HELP* command received 

14000 SCREEN 2,1:REM Change the screen 

14010 COLOR 1,3, (0,0)-(255,191),3:Ml=l 

14020 PRINT" Valid EASYCODE commands are: 

14030 PRINT 

14040 PRINT" STORE to enter data on program" 

14050 PRINT" CLEAR to reset HON+ memory" 

14060 PRINT" RUN to execute a MON+ program" 

14070 PRINT" SAVE to store one on tape" 
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14080 PRINT" LOAD to read one from tape" 

14090 PRINT" ? . to view this message" 

14100 PRINT" QUIT to return to Basic" 

14110 PRINT" HCOPY to print working screen" :PRINT 

14120 PRINT" DIS to Olsassemuie .Hcmo..j" 

14130 PRINT" ASM to assemble into memory" 

14150 CURSOR 20,160 

14160 PRINT" Loading Working Screen" 

14170 IF SD=0 THEN 14240 

14180 CURSOR 10,160:PRINT CHR$(5) 

14190 CURSOR 10,160:PRINT" Press space bar to continue"- 

14200 SCREEN 2,2 

14210 IF INKEY$<>CHR${32)THEN 14210 

14220 CURSOR 0,15:PRINT " " 

14230 GOTO 14300 

14240 SCREEN 1,1 

14250 GOSUB 15650:REM Display menu^ 

14260 SD=SD+1:SCREEN 1,2 

14270 GOSUB 9000:REM Redraw display 

14280 SCREEN 2,2 

14290 GOTO 14180 

14300 SCREEN 1,1 

14310 CURSOR 0,15:PRINT " " 

14320 GOTO 10000:REM Get next command 

14330 IF Ml=l THEN 14200 

14340 CURSOR 0,15:PRINT "Loading Menu" 

14350 SCREEN 2, 1 : CLS :M1=1 :M2=0 

14360 GOTO 14020 

14990 REM ** 'QUIT* routine (nice and simple!) 

15000 CLS 

15010 END:REM That's all folks 

15490 REM ** Opening screen 

15500 SCREEN 1,1:CLS 

15510 CURSOR 10,0:PRINT "E A S Y C D E" 

15520 CURSOR 13,4:PRINT "Simulated" 

15530 CURSOR 11,5:PRINT "Machine code" 

15540 CURSOR 14,6:PRINT "Monitor" 

15550 CURSOR 14,9:PRINT "for 32k" 

15560 CURSOR 12,11:PRINT "SEGA SC3000" 

15570 CURSOR 3,15:PRINT "Copyright (C) 1984 Simon Goodwin." 

15580 CURSOR 3,16:PRINT "SEGA version 1985 David Coursey." 

15590 IF TR>0 THEN 15630 

15600 CURSOR 9,19:PRINT "Loading Mcode data" 

15610 GOSUB 13500 

15620 TR=TR+1 

15630 CURSOR 5,19:PRINT " Loading Menu " 

15640 RETURN;REM to 1020 

15650 CURSOR 5,19:PRInt "Press space bar to continue" 

15660 IF INKEY$<>CHR$(32) THEN 15660 

15670 RETURN:REM 14260 

15990 REM ** -STORE' data or program 

16000 COLUMN=0 

16010 R0W=15 

16020 GOSUB 4000:REM Cleax messages (for later) 

16030 R0W=14 

16040 GOSUB 4000:REM Clear prompt line 

16050 PRINT "Enter address (100 to stop)"- 

16060 GOSUB 4500:REM Get number 

16070 IF N>99 THEN 10000:REM Error 

16080 K=N 

16090 R0W=15 

16100 COLUMN=0 

16110 GOSUB 4000:REMSet up next prompt 

16120 PRINT "Enter data (100 to stop)"; 

16130 R0W=14 

16140 GOSUB 4000:REM Set up varying prompt 

16150 PRINT"Address";K;"="; 

16160 GOSUB 4500;REM Get number 

16170 IF N>99 THEN 16000;REM Error 

16180 I=K 

16190 GOSUB 16500:REM Store in memory & display 
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16200 K=K+1:REM Select next location 

16210 IF K<100 THEN 16090:REM Get more 

16220 R0W=15 

16230 COLUMN=0 

16240 GOSUB 4000:REM Clear old message 

16250 PRINT "* End of memory reached"; 

16260 GOTO 10000:REM Get new command 

16490 REM ** Put value N in M() and on screen 

16500 M(I )=N 

16510 ROW=INT(I/10)+1:REM F.P Basic only 

16520 COLUMN=(I-10*ROW)*3+31 

16530 GOSUB 8000:REM Print the number 

16540 RETURN 

16990 REM ** Dissasembler - main loop 

17000 R0W=14 

17010 COLUMN=0 

17020 GOSUB 4000:REM Clear prompt line 

17030 PRINT "Disassemble from"; 

17040 GOSUB 4500:REM Get number 

17050 IF N>99 THEN 10000:REM Whoops 

17060 SCREEN 2 , 1 : CLS : SCREEN 2, 2 : M1=0 : M2=0 

17070 PRINT •■ Addr .. .Value. .. .Disassembly"; 

17080 FOR P=16 TO 112 STEP 8 

17090 GOSUB 17500:REM Disassemble 1 line 

17100 NEXT P 

17110 PRrNT:PRINT:PRINT 

17120 PRINT " Continue disassembly (Y/N)"; 

17130 IF INKEY$<>"N" THEN 17150 

1714 GOTO 17180 

17150 IF INKEY$<>"Y" THEN 17130 

17160 N=N-2:REM Ensure overlap 

17170 CLS:GOTO 17070 

17180 IF SD=0 THEN CLS:GOTO 17200 

17190 CLS:GOTO 17220 

17200 SD=SD+1:SCREEN 1,1 

17210 GOSUB 9000:REM Redraw screen 

17220 SCREEN 1,1 

17230 GOTO 10000:REM Back to command 

17490 REM ** Disassemble the code at N 

17500 IF N>99 THEN RETURNrREM End of memory 

17510 K=M(N):REM Get 1 char 

17520 COLUMN=28 

17530 ROW=P 

17540 GOSUB 8000:REM Address field 

17550 COLUMN=74 

17560 GOSUB BlOOiREM Value field 

17570 J=100 

17580 FOR 1=0 TO 25 

17590 IF K<>ABS(E(I)) THEN 17620 

17600 J=I:REM Get instruction text No. 

17610 I=100:REM Flag end of loop 

17620 NEXT I 

17630 IF J>25 THEN 17800 

17640 IF E(J)<0 THEN 17700:REM 2 Char . Instruct ion 

17650 COLUMN=128 

17660 GOSUB 6000:REM Instruction field 

17670 PRINT DS(J) ; 

17680 N=N+1:REM Select next address 

17690 RETURN 

17700 N=N+1 

17710 IF N>99 THEN 17800 

17720 K=M(N) 

17730 COLUMN=88 

17740 GOSUB 8040 

17750 COLUMN=128 

17760 GOSUB 6000:REM Instruction field 

17770 PRINT D$(J); 

17780 PRINT K; 

17790 GOTO 17680 

17800 COLUMN=128 

17810 GOSUB 6000:REM Instruction field 
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17820 PRINT "Data code:";K; 

17830 GOTO 17680:REM Exit 

17990 REM ** ASSEMBLE - main loop 

18000 R0W=14 

18010 COLUMN=0 

18020 GOSUB 4000:HEM Cursor tor prompt 

18030 PRINT "Assemble to"; 

18040 GOSUB 4500:REM Get address 

18050 IF N>99 THEN 10000:REM Error 

18060 K=N;REM Save start address 

18070 R0W=15 

18080 GOSUB 4000:REM Cursor to messageline 

18090 PRINT "Assembling. Type 100 to stop"; 

18100 R0W=14 

18110 GOSUB 4000 

18120 PRINT K; " = "; 

18130 INPUT T$ 

18140 IF T$="?" THEN 19270 

18150 IF TS="100" THEN 18190 

18160 GOSUB 18b00:REM Assemble 1 line 

18170 COLUMN=0:REM Just in case 

18180 IF K<100 THEN 18070:REM Re-prompt 

18190 R0W=14 

18200 GOSUB 4000 

18210 R0W=15 

18220 GOSUB 4000 

18230 IF K>99 THEN PRINT "* End of memory reached"; 

16240 GOTO 10000:REM Get new command 

18490 REM ** Assemble one line Into M(K) from T$ 

18500 J=1Q0 

18510 FOR 1=0 TO 25 

18520 IF D$(I)<>LEFTS(T?,LEN(D5( I ) ) ) THEN 18570 

18530 J=E(I):REM Get InstructioH code 

18540 I=LEN(D$( I ) ) :REM Get length of instruction 

18550 T1$=RIGHT$(TS^LEN[T$)-1 ) :REM Get remainder 

18560 I=100:REM Flag end of loop 

18570 NEXT I 

18580 IF J<0 THEN 18760:REM 2 char. instruction 

18590 IF J<26 THEN 18680:REM 1 Char. instruction 

18600 TS="* Unknown:"+T$ 

18610 R0W=15 

18620 GOSUB 4000:REM Clear old message 

18630 PRINT TO; 

18640 FOR I-O TO 1500 

18650 NEXT I 

18660 GOSUB 4000:REM Clear message 

18670 RETURN:REM Error exit 

18680 IF T1S="" THEN 18710:REM No trailing junk 

18690 T$="* Too long:"+T$ 

18700 GOTO 18610:REM Print message and return 

18710 N=J 

18720 I-K 

18730 GOSUB 16500;REM Update display 

18740 K=K+1:REM 1 more location used 

18750 RETURNtREM Success return 

18760 IF K<99 THEN 18790 

18770 TS="* Only 1 memory space left" 

18780 GOTO 18610:REM Print message 

18790 IF T1$<"0" OR Tl5>"99" THEN 18860 

18800 I=VAL(T1$) :REM Check range 0-99 

18810 IF I>99 THEN 18860 

18820 N=ABS( J ) :REMGet instruction code 

18830 GOSUB 18720:REM Store N 

18840 N=VAL{T1S) 

18850 GOTO 18720:REM Store parameter Sreturn 

18860 TS="* Incorrect number:"+TlS 

18670 GOTO 18610:REM Report error 

18990 REM ** HELP for Assembler user 

19000 SCREEN 2 , 1 : CLS : Ml=0 : M2=l 

19010 PRINT " Valid instructions:"; 

19020 FOR R=0 TO 95 STEP 8 
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19030 R0W=R+16 

19040 COLUMN=40 

19050 GOSUB 6000 

19060 PRINT D$(R/8) ; 

19070 IF E(R/8)<0 THEN PRINT "nn"; 

19080 COLUMN=144 

19090 GOSUB 6000 

19100 PRINT D$(R/8+13); 

19110 IF ECR/8 + 13X0 THEN PRINT "nn";' 

19120 NEXT R 

19130 PRINT:PR1NT:PRINT " nn is a number from to 99" 

19140 PRINT:PRINT:PRrNT:PRlNT " Press space bar to continue"; 

19150 SCREEN 2,2 

19160 IF INKEY$<>CHR?( 32) THEN 19160 

19170 IF SD=0 THEN GOTO 19190 

19180 GOTO 19210 

19190 SD=SD+1: SCREEN 1,1:CLS 

19200 GOSUB 9000:REM Redraw screen 

19210 SCREEN 1,1 

19220 R0W=16 

19 23 COLUMN =0 

19240 GOSUB 4000 

19250 COLUMN=0 

19260 GOTO 18070 

19270 IF M2=l THEN 19150 

19280 CURSOR 0,15:PRINT "Loading Menu 

19290 GOTO 19000 

19300 REM ** LOAD Register ; number 

19310 R(K )=J 

19320 GOTO 5000:REM Set flags & update display 

19990 REM ** LOAD Reg ister ; number 

20000 R(K)-J 

20010 GOTO 5000:REM Set flags & update display 

20090 REM ** LOAD Register ; memory 

20100 R(K)=M(J) 

20110 GOTO 5000 

20190 REM ** STORE Register ; memory 

20200 I=J 

20210 N=R{K) 

20220 GOSUB 16500:REM Display alteration 

20230 GOTO 11500:REM No flags - just get next 

20290 REM ** LOAD Register ; Register ' 

20300 R(K)=R(1-K) 

20310 P=P-1:REM Only a 1 char, instruction 

20320 GOTO 5000 

20390 REM ** ADD Register ; number 

20400 R(K)=R(K)+J 

20410 GOTO 5000 

20490 REM ** SUB Regis ter ; number 

20500 R(K)=R(K)-J 

20510 GOTO 5000 

20590 REM ** SUB A; @X 

20600 R(0)=R(0)-M(R(1) ) 

20610 P=P-1:REM Only a 1 char, instruction 

20620 GOTO 5000 

20690 REM ** JUMPNC; address 

20700 IF CARRy=0 THEN P=J 

20710 GOTO 11500 

20790 REM ** JUMPNZ ; address 

20800 IF ZERO=0 THEN P=J 

20810 GOTO 11500 

20890 REM ** JUMP;addre5S 

20900 P=J 

20910 GOTO 11500 . 

20990 REM ** LOAD A; 8X , . 

21000 R(0)=M{R(1) ) 

21010 P=P-1:REM 1 char, instruction 

21020 GOTO 5000 

21090 REM ** STORE A;eX 

21100 N-R(O) 

21110 I=R(1) 
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21120 P=P-1:REM 1 char. Instruction 

21130 GOSUB 16500:REM Store & display 

21140 GOTO 11500 

21190 REM ** ADD A;%X 

21200 R(0)=R(0)+M(R(1) ) 

21210 P=P-1 

21220 GOTO 5000 

21290 REM ** PUSH Register 

21300 N-R(K) 

21310 GOSUB 7000:REM Put N on Stack 

21320 P=P-1 

21330 GOTO 11500 

21390 REM ** POP Register 

21400 GOSUB ?500:REM Get N from stack 

21410 R{K)=N 

21420 P=P-1 

21430 GOTO 5000 

21490 REM ** CALL;Address 

21500 N=P;REM Save current program counter 

21510 GOSUB 7000:REM Push address 

21520 P=J:REM Start processing there 

21530 GOTO 11500 

21590 REM ** RETURN 

21600 GOSUB 7000:REM Get return address 

21610 P=N:REM Start processing there 

21620 GOTO 11500 

21990 REM ** HCOPY 

22000 IN^l 

22010 FOR VP=&H3C00 TO &H3E7F 

22020 VD=VPEEK(VP) 

22030 LPRINT CHRS (18 ) : LPRINT "SI" 

22040 LPRINT "P" ; CHR$ ( VD ) ; 

22050 IF IN=40 THEN GOSUB 22100 

22060 IN=IN+1 

22070 NEXT 

22080 LPRINT"A":GOTO 10000 

22100 LPRINT CHR$ ( 18 ): LPRINT "A":LPRINT CHR$ ( 1 8 ) : IN=0 

22110 RETURN 

Easycode 1 6K Version for SEGA 

10 REM AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

20 REM ** EASYCODE 16k version. 

30 REM ** (C) 1984 Simon Goodwin 

40 REM ** SEGA 1985 David Coursey 

50 REM ** Tape routine data 

60 DATA 2A,60,81,22,0C,9e,2A,62,81 

70 DATA 22,0E,98,2A,08,98, 22,60, 81 

80 DATA 2A,0A,98,22,62,81,CD,69,7A 

90 DATA 3E,0, 32,A2,82,CD,9F,77 

100 DATA 2A,OC,98,22,60,81,2A,OE,98 

110 DATA 2 2,62,81,09 

120 DATA 2A,6G,81,22,0C,98,2A,62,81 

130 DATA 22,0E,98,2A,64, 81,22, 10,98 

140 DATA 2A,66, 81, 22, 12,98, 2A, 06,98 

150 DATA 22,60,81,CD,EF,78,2A,0C,98 

160 DATA 22,60,81, 2A, 62, 81, 22, 66, 81 

170 DATA 2A,0E,98,22,62,81,2A,10,98 

180 DATA 22, 64, 81, C9 

300 REM ** Screen display data 

310 DATA 32,49,50,51,52,53,54,55,56,57,45,40,45 

320 DATA 48,48,48,48,48,48,48,48,48,48,45,65,45 

1000 sD=a 

1010 GOSUB 15500:REM Opening screen 
1020 ERASE:REM Set variables to zero 
1030 DIM R(1),M(99 ) 

1040 MAX=19:REM Highest instruction code 
1070 SCREEN 2,1:CLS 
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1080 GOTO 14000:REM Get menu 

3490 REM ** Poll keys; Space=wa i t , <CR>=abort 

3500 T$=INKEY$:REM keyboard scan 

3510 IF T$=CHR$(13) THEN ABRT=1:BEEP 

3520 IF TS<>CHR$(32) THEN RETURN 

3530 BEEP 

3540 R0W=15 

3550 COLUMN=0 

3560 GOSUB 6000:REM Position cursor on message line 

3570 PRINT "Waiting at";P; 

3580 PRINT " Press a key"; 

3590 FOR DE=1 TO 150:NEXT DE 

3600 T$=INKEY$ 

3610 IF LEN(T$)=0 THEN 3600:REM No key yet, loop 

3620 IF T$=CHR$(13)ORT$=CHR$(32) THEN 3640 

3630 BEEP 

3640 GOSUB 4000:REM Scrub the message 

3650 GOTO 3510 

3990 REM ** Clear line (leave cursor at start) 

4000 GOSUB 6000:REM Position cursor 

4010 PRINT CHR${5) 

4020 GOSUB 600G:REM Reset cursor 

4030 RETURN 

4490 REM ** Read number 0-99 to N {100=error) 

4500 INPUT T$ 

4510 IF T$<"0"ORT$>=":" THEN 4570;REM Not digit 

4520 N=VAL(T$) 

4530 IF N<0 THEN 4570 

4540 IF N>99 THEN 4570 

4550 IF NOINTtN) THEN 457a:REM F.P. Basic only 

4560 RETURN:REM No error 

4570 R0W=15 

4580 COLUMN=0 

4590 GOSUB 4000:REM Cursor to message line 

4600 PRINT "* Number beyond range 0-99"; 

4610 N-lOO 

4620 RETURN:REM Error foun.J 

4990 REM **Update display of registers and flags 

5000 CARRY=0 

5010 ZERO=0 

5020 IF R(K)>=0 THEN 5050 

5030 R(K)=R(K )+100 

5040 GOTO 5070:REM Set carry 

5050 IF R(K)<100 THEN 5080 

5060 R(K)=R(K)-100 

5070 CARRY=1 

5080 IF R(K)=0 THEN ZER0=1 

5090 R0W=12 

5100 COLUMN=22 

5110 GOSUB 6000:REM Set up for zero flag 

5120 PRINT "N"; 

5130 GOSUB 6000:REM Position cursor 

5140 IF ZERO=0 THEN PRINT "Y" ; 

5150 COLUMN=28 

5160 GOSUB 6000:REM Set up for carry flag 

5170 PRINT "N"; 

5180 GOSUB 6000:REM Position cursor 

5190 IF CARRY=1 THEN PRINT "Y"; 

5200 C0LUMN=1 

5210 N=R(0) 

5220 GOSUB 8000;REM Update accumulator display 

5230 COLUMN=e 

5240 N=R(1) 

5250 GOSUB 800a:REM Update X register display 

5260 GOTO 11500:REM Get next instruction 

5490 REM ** Mark and update the current locn 

5500 ROW=INT(P/10)+1:REM F.PBasic only 

5510 COLUMN=(P-10*ROW)*3+31 

5520 GOSUB 6000:REM Put the cursor there 

5530 PRINT " ";:REM <2 SPO 
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5540 R0W=12 

5550 C0LUMN=15 

5560 N=P 

5570 K=I:REM Save instruction code 

5580 GOSUB 8000:REM Update program counter 

5590 N=M(P) 

5600 I=P 

5610 GOSUB 16500:REM Redraw curent location 

5620 GOSUB 3500:REM Poll the keyboard 

5630 I-K:REM Restore instruction code 

5640 RETURN 

5990 REM ** Position cursor at column & row 

6000 CURSOR COLUMN, ROW:PRINT ""; 

6010 RETURN 

7990 REM ** Print N at current coordinates 

8000 GOSUB 6000 

8010 IF N>9 THEN T$ = STR$ ( N ) : L = LEN ( T$ ) : T$ = RIGHT$ ( TS , L-1 ) 

8020 IF N<10 THEN T$=STR$(N)+" ":REM Force two character width 

8030 PRINT MID$(T$,1,2 ); :REM In range 0-99 

8040 RETURN 

8090 REM ** Print K at current coordinates 

8100 GOSUB 6000 

8110 IF K>9 THEN TS=STRS ( K ) : L=LEN ( T$ ) : T$=R I GHT$ ( T? , L-1 ) 

8120 IF K<10 THEN T$=STR5(K)+" " : REM Force two character width 

8130 PRINT MID${T$,1, 2 ) ; :REM In range 0-99 

8140 RETURN 

8990 REM ** Draw the display 

9000 1=0 

9010 CLS 

9020 GOSUB 9500:REM 2LH,lRH column 

9030 FOR R0W=1 TO 10 

9040 COLUMN=0 

9050 GOSUB 6000:REM Position cursor 

9060 PRINT ":" 

9070 FOR J=l TO 9 

9080 COLUMN=J*3-2 

9090 N=M( I ) 

9100 GOSUB 80aO:REM Print one memory element 

9110 1=1+1 

9120 NEXT J:NEXT ROW 

9130 R0W=11 

9140 COLUMN=0 

9150 GOSUB 6000;REM Position cursor 

9160 FOR 1=0 TO 29 

9170 PRINT "-"; 

9180 NEXT I 

9190 R0W=12 

9200 GOSUB 6000;REM Position cursor 

9210 PRINT " = 00) . (X = 00) . (P = 00) . CZ=N) . CC = N) 

9220 R0W=13 

9230 GOSUB 6000:REM Position cursor 

9240 FOR 1=0 TO 29 

9 2 50 PRINT " "; 

9260 NEXT I 

9270 R0W=15 

9280 GOSUB 6000:REM Cursor on message line 

9290 COLUMN=0 

9300 R0W=21 

9310 GOSUB 6000:REM Cursor on message line 

9320 PRINT "? for HELP" 

9 3 30 RETURN 

9490 REM ** 2*LH,1*RH screen columns 

9500 X=0 

9510 RESTORE 310 

9520 FOR Y=l TO 13:READ B 

9530 VPOKE Y*40+X+&H3C00,B 

9540 NEXT 

9550 X=X+1 

9560 IF X=2 THEN 9580:REM Job done 

9570 GOTO 9520:REM Carey on 

9580 RETURN:REM 9030 
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9990 REM ** Get thn u»«r*t next command 

10000 R0W=14 

10010 COLUMN^O 

10020 GOSUB 4000:REM Clear prompt line 

10030 PRINT "Command"; 

10040 INPUT"> "; T$ 

10050 REM *• Force capitals 

10060 C2$="" 

10070 FOR C^l TO LEN ( T$ ) : C1S=MI DS ( TS, C, 1 ) 

10080 IF Cl$>="a" THEN Cl$=CHR$ ( ASC( Cl$ ) -32 ) 

10090 C2$=C2$+C1$:NEXT 

10100 T$=RIGHT${C2$,LEN{T$) ) 

10110 GOSUB 10130 

10120 GOTO 10180 

10130 R0W=15 

10140 GOSUB 4000:REM Clear message line 

10150 R0W=16 

10160 GOSUB 4000:REM Clear extra line 

10170 RETURN 

10180 IF T5="RUN" THEN 11000 

10190 IF T$="SAVE" THEN 12000 

10200 IF T$="LOAD" THEN 13000 

10210 IF T$="?" THEN 14200 

10220 IF T$="QUIT" THEN 10380 

10230 IF TS = "CLEAR*' THEN 10400 

10240 IF T$="STORE" THEN 16000 

10270 PRINT "* *';T5;" Is not a valid command"; 

10 280 GOTO 10000 

10290 REM ** Affirm QUIT/CLEAR command 

10300 COLUMN=0 

10310 R0W=15 

10320 GOSUB 4000 

10330 PRINT "Discard current workspace (Y/N)"; 

10340 INPUT T$ 

10350 IF T$="Y" THEN RETURN 

10360 IP T$="N" THEN 12260 

10370 IF T$<>"Y"OR T$<>"N" THEN 10350 

10380 GOSUB 103a0:REM Print prompt 

10390 GOTO 15000:PRINT MENU 

10400 GOSUB 10300:REM Print prompt 

10410 CURSOR 0,14:PRINT "Working:" 

10420 COLUMN=0 

10430 R0W=15 

10440 GOSUB 4000 

10450 I-O 

10460 FOR ROW=1T010 

10470 FOR J=lTOlO 

10480 IF 1=99 THEN 10510:REM Last locn 

10490 IF M(I)<>0 THEN 10540 

10500 IF M(I)=OTHEN 10570:REM Carry on 

10510 COLUMN=0 

10520 GOSUB 9190:REM Clear registers 

10530 GOTO 1020:REM Clear variables 

10540 COLUMN=J*3-2 

10550 N=0 

10560 GOSUB 8000:REM Draw at mem. locn 

10570 I-I+l 

10580 NEXT J:NEXT ROW 

10590 REM ** Program has been stopped 

10600 R0W=15 

10610 COLUMN=0 

10620 GOSUB G0O0:REM Prepare for message 

10630 PRINT "* Program stopped"; 

10640 GOTO 10000:REM Get a command 

10990 REM ** "RUN" command pre-processor 

11000 COLUMN^O 

11010 R0W=14 

11020 GOSUB 4000:REM Clear the prompt line 

11030 PRINT "Start address"; 

11040 GOSUB 4500:RHM Get the start of the program 

11050 IF N>99 THKN 10000:REM Error 
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11060 P=N:REM Set program counter 

11070 ABRT=0:REM Clear the abort flag 

11490 REM ** "RUN" main loop for each instruction 

11500 I=MCP):REM Get next instruction 

11510 GOSUB 5500:REM Update display, check keys 

11520 IF ABRT=1 THEN 10600:REM Quit if requested 

11530 COLUMN=0 

11540 R0W=15 

11550 GOSUB 6000:REM Put cursor on message line 

11560 IF Kl THEN 11580:REM Halt code 

11570 IF I<=MAX THEN 11620:REM Other instruction 

11580 IF 1=0 THEN PRINT "HALT"; 

11590 IF lOO THEN PRINT "* Unknown instruction"; 

11600 PRINT " at";P; 

11610 GOTO 10000:REM Get next command 

11620 IF P099 THEN 11650:REM Not end of memory 

11630 PRINT "* No end on program"; 

11640 GOTO 10000 :REM Get next command 

11650 P=P+1 

11660 J=M(P):REM Get operand 

11670 P=P+1:REM Point to next instruction 

11680 K=0:REM Assume a register A instruction 

11700 IF I>10 THEN IF K17 THEN K = 1:REM Wrong ! Register X 

11710 ON I GOTO 20000,20100,20200,20300,20400,20500,20600,20700,20800,20900 

0,2010 0,20 200, 20 3 0, 20400, 20 50 0,21000, 211 00, 2 1200: REM Execute instructions 

11990 REM ** "SAVE" current program 

12000 GOSUB 12500:REM Get Filename 

12010 POKE&H9 8 8,PEEK(SH816 2) ; POKE5H9809 , PEEK ( &H816 3 ) 

12020 POKESH980A,PEEK(&H8166) : POKE&H980B, PEEK ( &H8167 ) 

12030 COLUMN=0 

12040 R0W=15 

12050 GOSUB 4000:REMClear message line 

12060 PRINT "CONTINUE SAVE (Y/N)"; 

12070 INPUT T$ 

12080 IF TS="Y" THEN 12110 

12090 IF T$="N" THEN 12260 

12100 IF T$<>"Y"OR T$<>"N" THEN 12080 

12110 COLUMN=0 

12120 R0W=15 

12130 GOSUB 4000:REMClear message line 

12140 PRINT "Press SAVE & LOAD then <CR>"; 

12150 INPUT "*";TS 

12160 COLUMN=0 

12170 ROW-15 

12180 GOSUB 4000:REMClear message line 

12190 PRINT "Saving ";FL$ 

12200 CALLfiH9814 

12210 CURSOR0,17:PRINT " " 

12220 CURSOR0,18:PRINT " " 

12230 CURSORO, 19:PRINT " » 

12240 CURSORO, 20:PRrNT " " 

12250 CURSORO, 15:PRINT "Saving end " 

12260 GOSUB 10130:REM Clear extra line 

12270 GOTO 10000:REM Get next command 

12490 REM ** Get filename 

12500 R0W=14 

12510 COLUMN=0 

12520 GOSUB 4000 

12530 PRINT "Enter Filename * "; 

12540 INPUT"EASY. ";T$ 

12550 FL$="EASY."+T$ 

12560 FOR BZ=LEN(FLS) TO 16:REM Pad filename with blanks 

12570 FL$-FL$+CHR$( 32) :NEXT 

12580 RETURN 

12990 REM ** 'LOAD' memory from tape 

13000 COLUMN=0 

13010 R0W=15 

13020 GOSUB 4000 

13030 PRINT "Destroy existing data (Y/N)"; 

13040 INPUT T$ 

13050 IF T$="Y" THEN 13080 
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13060 IF T;; "N" TMKN 12080 

13070 IF T«<>"V"OM Te<>"N" THEN 13050 

13080 COMIMN-0 

13090 ROW 1 '. 

13100 GOSUI) HOOO 

13110 COLUMN 

13120 ROW-14 

13130 GOSUB 6000 

13140 PRINT "Working:" 

13150 P0KE&H9 808, PEEK (&H8162) : P0KEfiH9 809 , PEEK (&H816 3) 

13160 POKE&H82A2,0 

13170 CALL«H9844 

13180 CURSOR 0,17:PRINT " " 

13190 CURSOR 0,16:PRINT " Loading end '• 

13200 1=0 

13210 FOR ROW=1T010 

13220 FOR J=lTOlO 

13230 IF 1^99 THEN 13260 

13240 IF M(I)<>0 THEN 13290 

13250 IF M(I)=0 THEN 13320 

13260 COLUMN=0 

13270 GOSUB 9190 

13280 GOTO 10000 

13290 COLUMN=J*3~2 

13300 N=M(I ) 

13310 GOSUB 8000 

13320 1=1+1 

13330 NEXT J:NEXT ROW:P=0 

13490 REM ** Tape routine Mcode loader 

13500 RESTORE 60 

13510 FOR X=&H9814 TO fiH987D 

13520 READ A$:POKEX,VAL("&H"+A$) :NEXT 

13530 RETURNiREM to 15620 

13990 REM ** 'HELP' command received 

14000 SCREEN 2,1;REM Change the screen 

14010 COLOR 1,3, (0,0}-{255,191),3 

14020 PRINT" Valid EASYCODE commands are: 

14030 PRINT 

14040 PRINT" STORE to enter data on program" 

14050 PRINT" CLEAR to reset MON+ memory" 

14060 PRINT" RUN to execute a MON+ program" 

14070 PRINT" SAVE to store one on tape" 

14080 PRINT" LOAD to read one from tape" 

14090 PRINT" ? to view this message" 

14100 PRINT" QUIT to return to Basic":PRINT 

14150 CURSOR 20,160 

14160 PRINT" Loading Working Screen" 

14170 IF SD=0 THEN 14240 

14180 CURSOR ia,160:PRINT CHRS(5) 

14190 CURSOR 10,160:PRINT" Press space bar to continue"; 

14200 SCREEN 2,2 

14210 IF INKEY$<>CHR$( 32)THEN 14210 

14220 CURSOR 0,15:PRINT " " 

14230 GOTO 14300 

14240 SCREEN 1,1 

14250 GOSUB 15650:REM Display menu? 

14260 SD=SD+1 iSCREEN 1,2 

14270 GOSUB 9000:REM Redraw display 

14280 SCREEN 2,2 

14290 GOTO 14180 

14300 SCREEN 1,1 

14310 CURSOR 0,15:PRINT " " 

14320 GOTO 10000:REM Get next command 

14990 REM ** 'QUIT' routine (nice and simple!) 

15000 CLS 

15010 END:REM That's allfolks t ■ 

15490 REM ** Opening screen 

15500 SCREEN 1, 1 : CLS 

15510 CURSOR 10,0:PRINT "EASYCODE" 

15520 CURSOR 13,4:PK1NT "Simulated" 

15530 CURSOR 11,5:PRINT "Machine code" 
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15540 CURSOR 14,6:PRINT "Monitor" 

15550 CURSOR 8,9:PRINT "for 16k (level lllA)" 

15560 CURSOR 12,11:PRINT "SEGA SC3000" 

15570 CURSOR 3,15:PRINT "Copyright [C) 1984 Simon Goodwin." 

15580 CURSOR 3,16:PRINT "SEGA version 1985 David Coursey." 

15590 IF TR>0 THEN 15630 

15600 CURSOR 9,19:PRINT "Loading Mcode data" 

15610 GOSUB 13500 

15612 CLS:PRINT "Before EASYCODE can be run, you must delete the following line 

s then SAVE the program as your working copy." 

15614 PRINT:PRINT " 50-180, 13490-13530 & 1559 0-15616." 

15616 END 

15620 TR^TR+1 

15630 CURSOR 5,19:PRINT " Loading Menu 

15640 RETURN:REM to 1020 

15650 CURSOR 5,19:PRINT "Press space bar to continue" 

15660 IF INKEYS<>CHR$( 32) THEN 15660 

15670 RETURN:REM 14260 

15990 REM ** 'STORE' data or program 

16000 COLUMN^O 

16010 R0W=15 

16020 GOSUB 4000:REM Clear messages (for later) 

16030 R0W=14 

16040 GOSUB 4000:REM Clear prompt line 

16050 PRINT "Enter address (100 to stop)"; 

16060 GOSUB 4500:REM Get number 

16070 IF N>99 THEN 10000:REM Error 

16080 K=N 

16090 R0W=15 

16100 COLUMN=0 

16110 GOSUB 4000:REMSet up next prompt 

16120 PRINT "Enter data (100 to stop)"; 

16130 R0W=14 

16140 GOSUB 4000:REM Set up varying prompt 

16150 PRINT"Address";K; "="; 

16160 GOSUB 45D0:REM Get number 

16170 IF N>99 THEN 16000:REM Error 

16180 I=K 

16190 GOSUB 16500:REM Store in memory & display 

16200 K=Kfl:REM Select next location 

16210 IF K<100 THEN 16090:REM Get more 

16220 R0W=15 

16230 COLUMN^O 

16240 GOSUB 4000:REM Clear old message 

16250 PRINT "* End of memory reached"; 

16260 GOTO 10000:REM Get new command 

16490 REM ** Put value N in M( ) and on screen 

16500 M{I )=N 

16510 ROW=INT(I/10)+1:REM F.P Basic only 

16520 COLUMN=( I-10*ROW)*3+31 

16530 GOSUB 8000:REM Print the number 

16540 RETURN 

19990 REM ** LOAf Keg i ster ; number 

20000 R(K)=J 

20010 GOTO 5000 

20090 REM ** LOAD Reg i ster ; memory 

20100 R(K}=M( J) 

20110 GOTO 5000 

20120 I=J 

2019O REM ** STORE Regi ster ; memoc y 

20200 I=J 

20210 N=R(K) 

20220 GOSUB 16500:REM Display alteration 

20230 GOTO 11500:REH No flags - just get next 

20290 REM ** LOAD Register ;Reg i ster ' 

20300 R(K)=R{1-K) 

20310 P-P-1:REM Only a 1 char, instruction 

20320 GOTO 5000 

20390 REM ** ADD Reg is ter ; number 

20400 R{K)=R(K)+J 

20410 GOTO 5000 
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20490 REM •• liiJi) H»g I »ter ; number 

20500 R(K) -IMK) J 

20510 GOTO *tOOU 

20590 REM •• JlUli A;f*X 

20600 R{0)*H(0) M(H(1) ) 

20610 P = P-1:RB:m Only a 1 char. Instruction 

20620 GOTO 5000 

20690 HEM •« JUMPNC;address 

20700 IF CARRY^O THEN P=J 

20710 GOTO 11500 

20790 REM ** JUMPN2 ; address 

20800 IF ZERO=0 THEN P=J 

20810 GOTO 11500 

20890 REM ** JUMP;address 

20900 P=J 

20910 GOTO 11500 

20990 REM ** LOAD A;ex 

21000 R(0) =M(R( 1) ) 

21010 P-P-1 :REM 1 char . 

21020 GOTO 5000 

21090 REM ** STORE A;^X 

21100 N = R{0 ) 

21110 I=R(1) 

21120 P-P-1:REM 1 

21130 GOSUB 16500 

21140 GOTO 11500 

21190 REM ** ADD k;^X 

21200 R(0)=R(0)+M{R(i) ) 

21210 P-P-1 

21220 GOTO SOOO 



Instruction 



char . instruct i on 
REM Store s display 



EASYCODE 

Extra lines to convert 16K to 32K SEGA version. 
Merge this with the 16K version. 



190 REM •* AssflnbUr t«xt i codtts 

200 DATA STORE A;|X,ie,LOAD AjtX,17 

210 DATA STORE A;«,~3,ST0RB X;t,-13 

220 DATA LOAD A;f,-2,tOAD A;X,4 

230 DATA SUB A;«X,7,L0AD X;|,-12 

240 DATA LOAD X;A,14,ADD A; f X, 1 9 , JUHPNZ; , -9 

2S0 DATA JimPNC;, -I^LOAD A;, -1, LOAD X;,-ll 

260 DATA PUSH A, 20, PUSH X, 21 , RETURN, 2% 

270 DATA ADD A;, -5, ADD X;,-li,BUB A;, -6 

280 DATA SUB X; , - 16, JUHP; , - 10,POP A, 22 

290 DATA POP X, 2), CALL; , -24, HALT, 

300 REM *• ScE««n display data 

310 DATA 32,49,50,Sl,52,i3,54,SS,M,S7,45,40,45 

320 DATA 40, 49, 49,46, 48, 41, 41, 48,41,40, 45, 65, 45 

330 DATA 41,41,41,41,41,41,41,41,41,41,45,32,45 

1040 MAX-25:RBM Hl9haat Instruction code 

1050 DIH D8(MAX),B(HAX},8(9} 

6490 REM S«t up data £ox Asam. i Dlaa. 

6500 RESTORE 190 

6510 rOR I-O TO 25 

6520 HEAD D« ( I ) , Bi I ) :REM Text t Insttuctlon Ho. 

6530 HBXT I 

654 RETURH 

6990 REH •* Push K onto stack 

7000 COLUHH>33 

7010 ROW>10-STACK 

7020 IF ROW«0 THBH 7110 

7 030 S( STACK }-N 

7040 GOSUB 8000 

7050 STACK-STACK*1 

7060 COLUHH-34 

7070 ROW-12 

7080 M-STACK 

7090 GOSUB 8000:REH Update S display 

7100 RETURN 

7110 CQLUHH-0 

7120 ROW-15 

7130 GOSUB 6000:REHP[apaEC for message 

7140 PRINT "• Stack (uU"; 

7150 GOTO 11600;REH Leaves 1 OOEUB stacked 

7490 REH "■ POP H tiom top of stack 

7500 STACK^STACR 1 

7510 IF STACK<0 THEN 75«0:RBH Whoops, error 

7520 GOSUB 7060 

7530 COLUMN»33 



7540 ROW=10-STACK 

7550 GOSUB 6000 iREM Prepare to clear old entry 

7560 PRINT " ";:REM <2 SPO 

7570 N-S(STACK) 

7580 RETURN 

7590 PRINT "• Nothing left on stack"; 

7600 GOTO 11600 

9020 GOSUB 9500:REK 2LH, IBH column 

9120 NEXT J:PRINT"(":HEXT ROW 

9160 FOR 1-0 TO 36 

9210 PRINT "-00) .(X-00) . (P"00) . (Z-N) . (C-H) . iS*00)* 

9240 FOR 1-0 TO 36 

9490 REH •• 2"LH,1*RH screen columns 

9500 X-0 

9510 RESTORE 310 

9520 FOR X-1 TO 1 3 : READ B 

9530 VPOKB Y«40*X*tH3C00,B 

9540 NEXT 

asio. x.=jttiiLE j£=2^ TaEiLr=ia 

9560 IF X*40 THEN 9589:RBH Job done 

9570 GOTO 9520:REM Carry on 

9580 RBTURH:REK 9030 

10245 IF TS="HCOPY" THEN 22000 

10250 IF Tf="DIS" THEN 17000 

10260 IF T$="ASH" THEN 18000 

11080 COLUHN-33:RBH Clear stack 

11090 FOR R0W=1 TO 10 

11100 GOSUB 6000:REH Position cursor 

11110 PRINT " ";:RBM <2 SPO 

11120 NEXT ROW 

11130 STACK^O 

11140 H=-STACK 

11150 COLUMN-34 

11160 R0V*=12 

11170 GOSUB BO0O:REH Rewrite stack pointer 

11180 K'O 

11190 GOTO 5000:REM Write A,X etc 

11690 IF I''21 OR 1»23 THEN K=-l 

11720 OH 1-19 GOTO 21300,21300,21400,21400,21500,21600 

14100 PRINT" QUIT to return to Baslc- 

14110 PRINT" HCOPY to print working screen" :PRINT 

14120 PRINT" DIE to disassemble memory" 

14130 PRINT" ASH to assemble Into memory" 

15550 CURSOR 14,8:PRIHT "for 32k" 

16990 REH *■ Dlssasemblez - main loop 
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17000 R0V^14 

17010 COLUMN=0 

17020 GOSUB 40OO:REH Clear prompt line 

17030 PBIHT -Disassemble from"; 

17040 GOSUB 4500:REH Get number 

17050 IF H>99 THEN 10000:REM Whoops 

17060 SCREEN 2, 1 : CLS : SCREEN 2, 2 : HI =0 :M2=0 

17070 PRINT " Addc... Value Disassembly"; 

17080 FOB P=l$ TO 112 STEP 8 

17090 GOSUB 17500;HBH Disassemble 1 line 

17100 NEXT P 

17110 PRIHT:PRINT:PHIHT 

17120 PRINT " Continue disassembly (Y/N)"; 

17130 IF INKEY«<>"N'' THEN 17150 

17H0 GOTO 171B0 

17150 IF INKEYSO-y- THEN 17130 

17160 N=M-2:REH Ensure overlap 

17170 CLS:GOTO 17070 

17180 IF SD=0 THEN CLS:GOTO 17200 

17190 CLSjGOTO 17220 

17200 SD=SD+1: SCREEN 1,1 

17210 GOSUB 9000;REH Redraw screen 

17220 SCR8EH 1,1 

17230 GOTO 10000:REM Back to command 

17490 REM *• Disassemble the code at H 

17500 IF H>99 THEN RETURN:REM End of memory 

17510 K=M(N):RBM Get 1 char 

17S20 COLUMH=28 

17530 ROV'^P 

17540 GOSUB e000:REH Address field 

17550 COLUMN-74 

17560 GOSUB 8100;REH Value field 

17570 J=100 

17580 FOB 1=0 TO 25 

17590 IF K<>ABS(E(IM THEN 17620 

17600 J=1:REH Get Instruction text No. 

17610 I^100:REM Flag end of loop 

17620 NEXT I 

17630 IF J>25 THEN 17800 

17640 IF EIJXO THEN 17700:HEM 2 Char . 1 nstr uct 1 on 

17650 COLUMN=128 

17660 GOSUB 6000:RE« Instruction field 

17670 PRINT D$(J); 

17680 N=N+1:HEH Select next address 

17690 RETURN 

17700 N=H+1 

17710 IF N>99 THEN 17800 

17720 K=M(H) 

17730 C0LUMN=8e 

17740 GOSUB 8040 

17750 COLUMN=128 

17760 GOSUB 6000:REM Instruction field 

17770 PRINT Dg{J ); 

17780 PRINT K; 

17790 GOTO 17680 

17800 COLUMN=128 

17810 GOSUB 60D0:REH Instruction field 

17820 PRINT -Data code:";K; 

17830 GOTO 176B0:REH Exit 

17990 REM *• ASSEMBLE - main loop 

ISOOO R0H''14 

18010 COLUMN'O 

18020 GOSUB 4000:REM Cursor for prompt 

18030 PRINT "Assemble to"; 

18040 GOSUB 4500:REH Get address 

18050 IF N>99 THEN 10000:REM Error 

18060 K-H;REH Save start address 

18070 ROtf-lS 

18080 008UB 4000:REM Cursor to messageline 

18090 PRINT "Assembling. Type 100 to stop" ■ 

18100 ROtf-14 

18110 OOSUB 4000 

18120 PRINT K;"-",- 

18130 INPUT T$ 

18140 IF T$="?" THEN 19270 

18150 IF T8-"100" THEN 18190 

18160 GOSUB 1B500:REM Assemble 1 line 

18170 COLUMN-0:REH Just In case 

18180 IP K<100 THEN 18070:REM Re-prompt 

18190 R0tf*14 

18200 GOSUB 4000 

18210 R0«"15 

18220 OOSUB 4000 

18230 IF K>99 THEN PRINT "• End of memory reached" 

18240 GOTO 10000 :REH Get new command 

18490 REM ** Assemble one Une Into M(K) from TS 

18500 J-100 

18510 FOR 1=0 TO 25 

18520 IF DS(I)<>LEFTS(TS,LKH(D$(I) ) ) THEN 18570 

18530 J=E(I):REM Get Instruction code 

18540 I*LBH{D«(I)) :REM Get length of instruction 

18550 T1S-RIGHTS(T$,LEN(T5)-1) :REM Get remainder 

185(0 I-100:REM Flag end of loop 



18570 NIXT I 

18580 IF J<0 THBN 18760:REH 2 char. Instruction 

185»0 IF J<26 THBN 18680:RBH 1 chat. instruction 

18600 T»-"* Unknown:"+T$ 

18610 IOV-15 

11620 G06UB 4000:REM Clear old message 

18630 PRINT T$; 

18640 FOR 1=0 TO 1500 

18650 NEXT I 

11660 OOSUB 4000:REH Clear message 

18670 RrrURN:RBH Error exit 

18680 IF T1S="" THEN 18710:HEM No trailing Junk 

18690 T8«"* Too long:"+TS 

18700 GOTO 18610:REH Print message and return 

18710 H-J 

18720 I-K 

1B730 OOSUB 16500:RBH Update display 

18740 X-K+1:RSM 1 more location used 

18750 RBTURH:REH Success return 

18760 IF K<99 THEN 18790 

18770 T«-"» Only 1 memory space left" 

18710 OOTO 18610:REH Print message 

18790 IF T1$<"0'' OR T19>"99" THEN 18860 

18800 I<>VAL(T1$) :REM Check range 0-99 

18110 ir I>99 THEN 18660 

18820 H-ABS<J):RBMGet instruction code 

18830 GOSUB 18720:REH Store N 

18840 M-VAL<T1$) 

18850 GOTO 18720:REH Store parameter Sreturn 

188C0 T8»"* Incorrect number:"+Tl$ 

18870 GOTO 18610:REM Report error 

18990 RBM «» HELP for Assembler user 

19000 SCRBBN 2,l:CLS:Ml-=0: H2=l 

19010 PRINT " Valid Instructions:"; 

19020 FOR R=0 TO 95 STEP 8 

19030 ROV-R+16 

19040 COLUMH=40 

19050 OOSUB 6000 

19060 PRINT D$(R/8); 

19070 IP BIR/eXO THEN PRINT "nn"; 

19080 COLUHN>144 

19090 GOSUB 6000 

19100 PRINT DS(R/8+13); 

19X10 IF B(R/8+13)<0 THEN PRINT "nn"; 

19120 HBXT R 

19130 PRIKT:PRINT:PRINT " nn Is a number from to 99" 

19140 PRIHT:PRIHT:PRINT:PRINT " Press space bar to continue 

19150 SCRBBN 2,2 

19160 IF IHKBy«<>CHR$(32) THEN 19160 

19170 IF 8D-0 THBN GOTO 19190 

1*180 OOTO 19210 

11190 SD>SD4li SCREEN 1,1:CLS 

192O0 OOSUB 9000 :RBM Redraw screen 

19310 8CBXBN 1,1 

19320 ROV-16 

19330 COLUHN*0 

19240 OOSUB 4000 

19250 COLUHH-0 

19260 GOTO 1S070 

19270 IF M2"l THEN 19150 

19280 CURSOR 0,15:PRINT "Loading Menu ■• 

19390 OOTO 19000 

21290 RBM •> PUSH Register 

21300 H-R{K) 

21310 OOSUB 7000:REH Put N on stack 

21320 P-P-1 

21330 OOTO 11500 

21390 RBH •» POP Register 

21400 OOSUB 7500:REH Get N from stack 

21410 R(K)«H 

21420 P-P-1 

21430 OOTO 5000 

21490 RBH *• CALL;Address 

21500 M-P:RBM Save current program counter 

21510 OOSUB 7000;REH Push address 

21520 P-J:REM Start processing there 

21530 GOTO 11500 

21590 RBH •• RETURN 

21AJ)fi JWgUB 700Q:RaH Get. return address 

21610 P-H:RBM Start processing there 

21630 OOTO 11500 

21990 RBH ** HCOPy 

23000 IN-1 

22010 FOR VP"tH3CO0 TO ftH3E7F 

22020 VD=VPEEK(VP) 

22030 LPRINT CHR8 (18 ) : LPRINT "Si" 

22040 LPRINT "P" ;CHRS ( VD ) ; 

22050 IF IN*40 THEN GOSUB 22100 

23060 IH-IH-tl 

22070 NEXT 

22080 LPRINT"A":GOTO 10000 

22X00 LPRINT CHR$( 18 ) iLPRINT "A":LPRINT CHRS ( 18 ) : IN=0 

23110 RBTURN 
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CALCULATING VALUES FOR PARALLEL RESISTORS 

10 REM « *•■ l-aiAllrl Resistors. 

20 REM R{)-V«Ui« wanted* 'B2 = guess" 'R3 = exact value required with R2 to give RO 

30 REM R4-laiit 'lufiss* 'R5,R6,R7 = 3ub-var lables 

40 REM ()l-l,«fit ()uess exponent ;aave location ' 'El^guess exponent 

50 REM AKU-Artay of std values."' Rl = Value of given pair. 

60 REM l,J,K - Pointers into diray Alt n ) 

70 REM calculations based on equ ' ns I -1/Rwanted= l/Rstd + l/Rexact ~ ID 

80 REM 1/Rexact= 1/Rstd +1/Rexact f2} 

90 REM If U) gives tolerance the OK, fine, ELSE (2) calculated fi a std val 

ue of Rexact' attempted. Ifthls value is unsuitable, then a new value of Rstd Is 

tried in {1} 
100 REM Tests are repeated until either the tol'ce Is met OR Rstd exceeds tw 
ice the value wanted. 

110 REM The last test Is because the eq ' ns ASYMPTOTICALY approach 2Rwtd, & 
120 REM IE 2Rwtd is passed, then trials have failed!! 
130 REM $S$S$S$$$$$$5$$$5$$$$$$e$$$S$$ 

140 REM Original proqcam produced for MICRO-BEE by A.Woodfelld. 
150 HEM -S-E-G-A- version by B.PYCROFT 
160 REM -->>->■*> = = = = = = = = z. 

no REM ' • * * ' 

180 CLS:PRINT " PARALLEL RESISTOR CALCULATOR." 
190 PRINT " ============================" 

200 PRINT 

210 DIMA1(15) :REH STD VALUE TABLE 

220 FOR 1=1 TO 13 

230 READ Aid ) 

240 NEXT I 

250 DATA 1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.6,6.2,10 

260 INPUT "What resistor value do you want { OHHS ) ? ";R0 

270 INPUT "To what tolerance do you want the parallel value 1%) ? ";T0 

280 R5=R0:GOSUB 420 

290 IF ABS(RO-(R2*10^El))/R0<=T0/lOO THEN GOTO 560 

300 R3=ABS( (RO*(R2*10"E1))/(RO-(R2*10-E1)) ) 

310 R4=R2:D1=E1 

320 K=J 

330 R5=R3:GOSUB 420 

340 IF ABS(RO-( ( (R2*10''E1)*(R4*10"D1) )/( (R2'«10'-El)*(R4*10'-Dm ) )/K0<=T0/100 THEN 

GOTO 6 40 
350 IF K=13 THEN 400 
360 K=K+1 

370 R2=A1(K) :E1=D1 
380 IF R2*10''El>2 . 1*R0 THEN 670 
390 GOTO 410 

400 K=1:E1=D1+1:R2=A1(K) :GOTO 380 

410 R3 = ABS( (R0*(R2*10'-E11 ) / ( RO- ( R2*10-E1 ) ) ) : R4 -R2 : Dl = E1 : GOTO 330 
420 El=0 

430 IF R5<10 THEN 470 
440 R5=R5/10 
450 E1=E1+1 
460 GOTO 430 
470 FOR 1=1 TO 13 
480 IF A1(I1>=R5 THEN 500 
490 NEXT 1 

500 R6=A1(I ) :R7=Al(I-l ) 
510 IF ABS{R5-R6]<ABS(R5 R7 ) THEN 540 
520 GOTO 550 
530 RETURN 

540 R2=R6:J=I :00T0 530 
550 R2=R7: J"l-1 :G0T0 530 
560 PRINT 

570 PRINT "A resistor of ";R0;" J- can be made using a single resistor " 
580 PRINT "of ";INTtR2*10'El);'' ohms to a tolerance of ";T0; " %":GOSUB 770:GOSU 
B 750 

590 BEEPrPRINT 

600 INPUT "Another run (Y/N) ? ";Z1S 
610 IF Z1S="Y" OR ZlS="y" THEN 260 
620 BEEP2:PRINT " Bye-bye" : BEEP: BEEP : BEEP 
630 END 
640 PRINT 

650 PRINT "A resistor of ";R0;" J- can be made using 2 std resistors of '';INT{R2* 
lO'El);" « ";INT(R4*10'-D1 ) ;" ohms to a tolerance of ";T0;" %":PRINT :GOSUB 720 
660 GOTO 590 
670 PRINT 

680 PRINT "Sorry, no combination within that tolerance ." :GOSUB 750:PRINT 
690 INPUT "Want to try another tolerance (Y/N) ? ";Z1S : BEEP 2 
700 IF 21$="Y" OR 21S="y" THEN 270 
710 GOTO 600 

7 20 Hl=(R2«10-El*R4*10"Dl>/tR2*10"El+R4»10-Dl) 
730 PRINT "R J- " ";R1 

740 PRINT "R % - ";ABS( (Rl/RO)*-10O+10O) ' 

750 PRINT "R range - "; 1NT(R0- (( TO/100 ) "RO ) 1 ; " ~ ";B0;" ~ "; INT(RO+( <T0/100 ) "RO) 

> 
760 RETURN 

770 PRINT :l'HIHT "R % - "; ABS 1 (R2*10"E1/R0 ) *-l 00 + 100 ) 
780 RETURN 

790 REM <. Cllc and > 



B Pvcrod 
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SEGA COMPUTER 

... the final part 



INItKgnNG BnS AKD FTECT5 . 

This chapter is dedicated to all those wives \iK) speixJ endless 
hours trying to caivince their husbands to give up that stupid 
toy, and spend more time with them. Gathered together in this 
chapter are the solutions to a wide range of problefns, so now 
there is no excuse for husbands to sperid all night trying all 
those various programning methods that don't vork. 

A SBa\ Ptmrr using statemekt : 

Sent people wish that the SHIA had a PRINT USING statement. 
Basically this allows you to format niuibers v.hich alveys 
appear in the same place, and with the saiF nunber of deciitEl 
places after the deciiml point. So here is a routine uhich 
will alleys display niinbers to tuo decimal places, and 
alveys place it so that the numbers line up with the deciml 
point alveys in the same colLm. 



B. Brown 
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COTO 10 
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r,OTO 10 









The value of 10 in line 110 has been used to give a nunber 
with twelve characters long. The program would be used as a 
subroutine within your particular program, and accessed by 
a gosub statanent. 

A FALTLTy RENIME£RER : 

Not that you uould lent aie anyvoy! No, just a note to ^y 
that the SECA RENLM comiand does not work properly. To 
illustrate its major weakness, type in the following 

program. 



10 

20 
7,0 
AO 

600 



n-JPUT- ;rU'- inij- ;; A-r. 

IF LENCAt.>(7 Tlir^N 13010 

IF l.Ff-!<A-J> >.', THEM M)0 

nOTO 10 

PRINT ■ AT. <7- ;; 0010 1 



:.oo 



PRINT 



f 1 :.> 



GOTO 10 



Then use the RLNIM ccimiand. 
reninbered as follows, 



The progran will be 



10 INPUT" r.lr iiMj- jAi^ 

20 ir i..FN^ Ai;i<7* Turn ooto 

30 IF L r M ( ^^ 1. ) ^ <\ f I -I L^ K /. C. 
Af.) GOTO 10 



Notice that the line nunbers in lines 20 and 30 have not 
been danged. Whenever a goto or line nunber follows a 
string riBnifHilatian, the renLin feature will not work 
properly . 

ERASING QlARACm^ Qi THE GRAHUCS SCREEN : 
Try the following program, 

10 SCREEN ':,2;(:i..S 

20 -"OP >;. 'kOOO TO 1050 

30 CURGOR lCiO,0:PRINT ' B<:ore:" 

AO NFXT 

T.'O CMH 
As you will have noticed, the characters wrltter tend to 
overwrite each other. After a couple of prints, you can't 
read the score at all . The vcy to overcane this is by 
using a print aK$(5) coranand. This erases everything to 
tfe ri^t of the c urr ent cursor position. Modify the 
progran to that below, 



;X 



10 


SCREEN 2,?: CI. 3 




— 1,*\ 


FOR >^^1000 TO 10'.:.0 




7-0 


CURSOR 1;jO,0: PRINT 


CURT. \5> 


Ad 


CURSOR 150,0:Prc;NT 


■ '■U: t.ir e 


IT" '^ 


NFXT 




6'.y 


END 





;X 



As you notice now, the print chr$(5) statement allcws you 
print in the same pceition twice. Hov«ver, note that the 
chr$(5) erases all infoniBtion to the right of the cursor 
(except sprites). Its use mist therefore be linuted to close 
to the right hand ec^, ie for displaying scores, etc, 
otherwise it could erase part of your pictures or graphic 
displays. 

SOE NDItS AflCUr THE GRAffaCS : 

There aj^iear to be sane strange things happening v,hen using 
the graphics screen. This is due to the routines in RCN 
being designed with circles etc in mind. An exarqile of this 
limitation follovs, 

10 SCREEN 2,2: CLG : COl.OR 1,1 1» 

(0,0) - ':25:^,1?1>,12 
20 LINE ■'57,50> - ■: 100 , 100 > , 15 , BF 
30 CURSCR 66,75: COLOR 1,A 
AO PRINT "t£"-iL- 
50 GOTO 50 



As you probably guessed, "test" is not printed and the background 
color is ignored. This is because the routine does not erase 
the previous coitaits of the video screen when writing new data 
to it. A possible solution is to add these lines to the 
previous program, 



5 ZX^.^H2000: 
25 G03U& 100 
-^5 GGSUE: 110 



ZC=^Hin 
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iOO rOR Y-/0 TO ?0:['.l.INE(A^,Y>- 

(7r.,Y)i NLXT: RETURN 
110 fOr< X-A-l TO 95 STEP 3 

;:'o rnR y-70 to 70 

130 VPOKC IMT(Y/G)>*256i-nJT(X/n)*0 

I YMn004-ZX,2C 
1^0 M:>:T: NEXT: RETURN 

This ckmiLitniies the writing to the color attribute area of 
tlK gra|iiics screen. This technique should be used to add 
more color onto the screen, as the graphic chip does allow 15 
colors to be used in a character block (ie 8 x 8). The 
ccn^ter is capable of generatinR color displays rivalling tiDst 
canputers today, and should he i;aiiparable to more expensive 
corpiters if progranired correctly. 

Wm listiriR IVihh puiKtirri, pressing the SPAQBAR will pause 
liKj liattng. I'rt'SHin); ii iigQUi, Lhe listing will continue. 

HALTINC^ TTIE GA^fi^ (ARIKlUa-S : 

Pressii^ RIST will halt Uie game, while a further press will 
restart the gene. 

IXftP OR SAVE VARIAHJS, MAQ{INE-O0CE FR0G3W6. STTOMG ARRAYS EIC: 

Wei 1 . w irey as well go for broke on the last topic in this book . 
If you Ikivp survived to this point then ccngratulations are in 
order! liy now, sane of the concepts should be clicking together 
and sti In fiiiiilly put you off the deep end, lets get into 
saving oi loading variables etc. 

Basic PriJiciple involved: Wb have already discovered that 
Basic uses locations in the Reserved RAM area in order to locate 
\rfiere to find the progran, variables, strings etc. The LCttD 
and SAV1-: routines locic up locaticns aHB160 to SH8165. These 
locatuTis store the start and aid address's of the Basic 
prognm ^md Variable storage areas. The area of memory 
between tlie start and end address of the Basic progran is 
saved U) tape, but the storage area iai't. In a fla^, ve 
discover that if we replace these start and end address's 
of tit' liisic program with the address's for the variables, 
then call the SAVE routine, the coipiter will save the 
variabk-y to tape for us. ffeving saved them to tape, if 
we reset ifie address's to what they were previously, all 
will be fine, and our progran will continue on as usual. 
The sane principle applies to the LOAD process. Ckay, so 
the steps involved in designing this are, 



address SH9808 aivHrds (though the length of ow routine 
cannot exceed 250). The pointers that we pick up fran 
locations 1^18160' must be saved scmEvhere safe, so we will 
store than as follcws, 



&H98Ce/9 



^980C/D 
ffl9aOE/F 
SH9610/1 
ai9812/3 
SH98W" 



Fbke this with start address to be saved 

ftjke this with end address to be saved 

Store &H8160/I here 

Store SH8162/3 here 

Store SH81W/5 here 

Store SH8166/7 here 

>bchine code routine 



T>te actual mcode routine written in machine code, 



ENTRY 
SAVE 



mm 

1£1AD 



I) 
2) 
3) 



i) 
6) 



Set up a machine-code routine to acconplidi the ta^ 

Save the start/end address's sonevliere safe 

Get the variable address's and put than into ^^re 

the start/aid address's of the Basic progran are 

stored 

Call lhe iJCftD or SAVE routine in RCM 

ft-fli'i tlv^ original address's 

Reuu^l IjfKk to Basic .... 



LDHL,(8160) 
LD (9900, HL 
LD HL,C8162) 
LD (9eGe),Hl. 
LDHL,(9e0e) 
LD (8160). HL 
lJ3HL,(9eCtt) 
LD (8162),HL 
CAIJ. 7AW 
LD HL.(9eOC) 
LD (8160), HL 
LDHl.,(q8[X) 
LH (8162), HL 
RET 

LD A,00 
LD (82A2),A 
LD HL.(8I60) 
LD (9800 ,HL 
LD HL,(8162) 
LD (9eOE),HL 
LD Hl.,(816i) 
LD (gei8),HL 
LD HL,(8166) 
ID (gei2),HL 
LD HL,(9806) 
IB (8160) ,HL 
lJ)HL,(g8CA) 
LD (8162) ,HL 
CALL 78EF 
LDHL,(9eOC) 
ID (8160), HL 
ID HL,(980E) 
ID (8162). tL 
ID HL,(9810) 
LD (8164) ,HL 
LDHL,(9812) 
ID (8166),HL 
RET 



;save Basic start 

;save Basic end 

;new start 

;new end 

;call save routine 

; restore Basic start 

;restore Basic end 

;zero filefound flag 

;save Basic start 

;save Basic end 

;save string start 

;save string end 

;new start 

;new end 

;caii load routine 

; restore E&sic start 

; restore Basic aid 

; restore string start 

; restore string aid 
; return to Basic 



Setting up the mcotk^' ttxnine. 
a REM statemait. 



l£ts hide the machine-code in 



5 REM AAAAAAAAAAAAAAAAAAA;\AAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAA/\/\AAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 

Line 5 lu'. ■>■■ nimy 'A's as possible, about 250 of them. 
Now tht' I II -I 'a' 111 line five is stored at address 
&lt9606. ">i "in film* < (mIt" routine can thus be pokeci into 



The LOAD part of the routine is slightly different, because the 
string pointers are altered by the load routine. Thus they are 
saved, and later restored after the load has executed. Location 
82A2 is stored with zero this tells the load routine to load 
the first file it acounters. 

The na:hinecode is new converted to DMA statemaits, and poked 
into the 'A's that neke up line 5, eg 

FDR X=SH9eCB TU ^19e:B+fliiiiber of data bytes 
READ A:FCKE X,A: NEXT 

Cbce this is achieved, the routines can be called and executed. 
This has beai used in the following three programs wriiten 
by the author, 

ACDOMS RECEIVAHi: 
ACCOmS PAYABLE 
MAIUNG LIST 
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USER 
GROUPS 

AUCKLAND (NTH SHORE) 
SEGA USER GROUP 

Coritaci Norman Raynel 
7H An^flc Si 
Tiikapuna 
AUCKLAND 
Ph 4%-H41 

PUKEKOHE SEGA USER GROUP 

Contact Selwyn Eastori 
4 Roose Ave 
PUKEKOHE 
Ph «6-Sfi:^ 

SOUTH COROMANDEL 
SEGA USER GROUP 

Contact Sid ^ lawken 
PO Box 183 
WHANG AM ATA 
Ph SH-77S 

HAMILTON SEGA USER GROUP 

POBox IMH Hamilton 
Presidenl Mt Colin Byll Ph. 73-826 
Secretary. Mrs Anne Thrush Ph 437-312 
Meetings held 2nd & 4lh Monday of each 

month al Whitjora Communily Centre, 

Willoughby Si at 7 30pm 

TOKOROA SEGA USER GROUP 

Contact. Geoff Ciawford 
1 Pio Pio PI 
TOKOROA 
Ph: (17-105 



ROTORUA SEGA USER GROUP 

Conlacl: Terry Cole 
PO Box 7140 
Te Ngae 
ROTORUA 
Ph 59-325 AH 

WHAKATANE SEGA USER GROUP 

Contact. K Nightingale 
240 King St 
WHAKATANE 
Ph 84-500 

NAPIER SEGA USER GROUP 

Contact Reid Duncan 
Store Manager 
Agnews Refrigeration 
Ph: 55-857. 57-431 

HAWERA SEGA USER GROUP 

Contact DM Beale 
7A Clive St 
HAWERA 
Ph 85-108 

MARTON SEGA USER GROUP 

Contact. Mr H R Miller 
41 Alexandra Si 
MARTON 

WELLINGTON SEGA USER GROUP 

Contact Shaun Parsons 

PO Box 1871 

WELLINGTON 

Ph, 897-095 (AHI 727-tifS6 (BUS) 

CHRISTCHURCH SEGA USER GROUP 

Contact: James O'Donnell 

15 Jebson Si 

Shirley 

CHRISTCHURCH 

Ph: 856-884 



TIMARU SEGA USER GROUP 

Contact: John Oliver 

South Canterbury Compuler User Group 

PO Box 73 

TIMARU 

Ph 26-300 

OAMARU SEGA USER GROUP 

Contact: Bill Dowman 
99 Aln St 
OAMARU 
Ph: 46-250 

DUNEDIN SEGA USER GROUP 

Central City Computer Interest Group 

Box 5260 

Moray Place 

DUNEDIN 

Contact: Graeme Simpson, 

Saddle Hill. R Dl. Dunedin. 

Ph' (089) 6374 



WANTED 
Copies of: 

Geography 3 and Sprite Generator 

(not Sprite Editor) 

Contact: Mr J.E. Hedges, 87B White St. 

Rangiora. 



DISK DRIVE 
CONNECTION 

For those Sega owners who purchased a 
disk drive from Farmers Trading without 
the Computer Connection. 
Contact Warwick. Phone 444-9081 



OVERSEAS SEGA 
USERS CLUBS 



scon 

CHALLENGE 



Ei^-'TXAy 





// 


Borderline 


T^, 802. 820 


Michael WilkinsoriM 


/// 


Congo Bongo 


175.490 


David Downs ■ 


7/ 


Flicky 


2.718.900 


B. A Smaill ^^ 


/ 


Lode Runner 


38.000 


Steve Biggs ^^^ 






Monaco GP 


210.062 


Stewart Parkes 






Pacar 


1.495,500 


Tony Sasso 


\ 




Pop Flamcr 


117.000 


Richard Hendra 




Sinbad Mystery 


190.000 


Stewart Parkes 


M 


Star Jacker 


398,000 


Steve Biggs 


W 


Video Flipper 


999.880 


Andre Stokes 


^ 


Yamoto 


85.000 


Stewart Parkes 




N-Sub 


76.250 


Reuban Jackson 




Safari Hunting 


8.400 


David Downs 




Safari Race 


30,000 


Jonathan Fletcher 




Orguss 


18.500 


David Downs 




Champion Tennis 


9-Love 


David Downs 




Challenge these H 


-Scores for Cartridge games by 






sending us yours. 







/\ 



<<■ 



1?iaus F*inl<er~'' ~ 
PO Box 18 
Belconnen 
ACT 2616 
Ph: 062 30 2334 



Scott McDonald 
2 Coolalie Ave 
Camden 
NSW 2570 
Ph: 046 668 956 



John McLennan 

65 Highclere Blvd 

Marangaroo 

WA6064 

Ph: 09 342 3905 



Jan Jacobson 
10 Pioneer Ave 
O'Sullivans Beach 
SA 5166 
Ph 08 382 7967 



Les Beacall 

1/41 Cameron Road 

Croydon 

VIC 3136 

Ph: 03 725 0864 



Wayne Ariel 
35 Leanne Street 
Marsden 
QLD 4203 
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To all Sega Members, 



THANKS 

FOR EVERYTHING 



from 



SEGA SOFTWARE SUPPORT 



